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Lieber Leser! 

H h up! Vor Weih- 
nachisn harcache hi uns in der 
Redaktion wie jedes Jahr unge- 
heurer Zeitmangel. Nicht nur, 
daß der Dezember weniger Ar- 
beitstage bietet per ein 
Glück), sondern der Arbeitsauf- 
wand, die Messen, viele neue 
Produkte usw, halten einen 
ständig in Atem. Dies gilt be- 
sonders für einen anderen Titel 
aus unserem Verlag, den "Ak- 
tuellen Software Markt”, denn 
natürlich haben wir vor Weih- 
nachten eine riesige Software- 
schwemme. "Compute mit” 

trifft das nicht so stark, da es 
hier vor allem darauf ankommt, 
Listings zu veröffentlichen, die 
ein beständiges oder sogar stei- 


gendes Niveau vorweisen kön- 


nen. Wir sind mittlerweile an 
dem Punkt, daß wir stolz auf 
ein hohes Programmniveau ver- 
weisen können. Für einige von 
Ihnen, bringt das leider nicht 
nur Vorteile: In unseren Rega- 
len stapeln sich bei Atarı, C 16 
und C64 massenhaft gute Pro- 
gramme, die auf den Abdruck 
warten. Programmautoren un- 
ter unseren Lesern müssen sich 
daher auf längere Wartezeiten 
bei der Bearbeitung ihrer Pro- 
rg in unserem Verlag ein- 
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klartext 


Neu für alle Commodore Rechner C 64/VC 20 und C 16 


re er ren Hin untere 


Steuerzeichen sowie alle Grafikzeichen werden zukünftig durch Klartext ersetzt. 
Der Aundruck i kompatibel zum bierigen Druckverahren Druckverfahren, ein neuer Checksum- 
mer ist aus diesem Grund 

EEE EIE IR SO er 


alle Grafikzeichen durch ein aka ee sind Ver- 
wechselungen praktisch völlig R 

Wie arbeitet unser Klartext? 

Wer schon nach dem alten Verfahren eingegeben hat, wird sicherlich kei- 


3 Schmied Umschng ehr, 
Für die neu nen Leser erkläre ich jedoch das Verfahren noch einmal 


a ra 
MER FTIR Birk ein CODEWORT, welches die Taste bzw. Tastenkombi- 
Euer Kein men Tolle Tanken ad Si nd 
meet galarıs ende Beige 
regnen ann wagen == 


neuen Druck 
C64 LISTING MIT CHECKSUMNEN (C V1.0) 


10 REM BISHERIGER AUSDRUCK 
20 N 0242777702 5 — 
30 PRINT" 7—| 1 “*® 
40 PRINT" Mila" 
50 PRINT"ENDE* 
ENDE LISTINGS 
EDRUCK:F.B. 3 


E-64 LISTINGS + CHECKSUMMEN (C V1.0) 


<118> 


<85> 
<149> 
<246> 


10 REM NEUER AUSDRUCK 
20 PRINT" {DDWN4 SO CY3 Spy" 
SO PRINT"(5A SB SC SD SE SF SG 
40 PRINT" {CA CR CC CD CE CE 66 
50 PRINT"ENDE" 
ENDE DES LISTINGS 
EDRUCK:F.B./0.8.3 


Wie in dem Beh zu rung ist, werden alle Steuertasten durch die entsprechen- 
de Tastenbeschreibu uk iert. Das Wort DOWN steht in diesem Fall für Cursor 
nach unten. Die Zahl dahinter gibt an wie oft die Taste betätigt werden muß, In unse- 
rem Beispiel müßte also die Taste CURSOR abwärts viermal betätigg 
naue Beschreibung, welche Taste gemeint ist, entnehmen Sie bitte der Klartext- 
Tabelle, welche am ren dieser Beschreibung abgedruckt ist. Achtung für C16 und 
C64 existieren zwei verschi 
DES ie Bo smeharikeeneie sunien at a Gleichen du 
einen 2-Buchstaben-Code ersetzt. Der erste Buchstabe ist entweder ein »$« oder ein 
„Ce. Das »C« steht für die «COMMODORE TASTE« und das »$« für die »SHIFT 
TASTE«. Der zweite Buchstabe bezeichnet die Aufschrift der Taste. Das »SA« in’un- 
serem bedeutet also, daß die Taste SHIFT zusammen mit dem Buchstaben 
»A« betätigt werden muß. »C+« würde bedeuten, daß die Taste COMMODORE zu- 
sammen mit dem PLUS Zeichen wird. Wird direkt hinter dieser Buchsta- 
ae Bar, Das adrag chen eher run 
an. Das Zeichen CO) Y wurde „lso in unserem Beispiel 9 mal eingege- 
aan ewige diese Mehrde entfällt arg das lästige Abzählen von mehrfachen 
eichen. 
Sollten Sie einmal nicht wissen, welche Taste gemeint ist, so hilft Ihnen ein Blick in 
unsere Klartext-Tabelle weiter. 
Um im len Tastenbezeichnungen von normalen Zeichen zu unterscheiden, wer- 
den alle Tastenkennzeichnungen in geschweifte Klammern gesetzt. Diese dürfen 
selbstverständlich nicht eingegeben werden. Auch Leerzeichen innerhalb geschweif- 
ter Klammern dienen nur zur Trennung einzelner Tastenfunktionen und dürfen 
ebenfalls nicht eingegeben werden. Um die Tastenfunktionen- noch besser en 
heben, werden diese in unterstrichener Kursivschrift ( ) 
Zeichen se der geschweiften Klammern werden normal abgedruckt und Br 


AS Te ernan ich hier ich Netphen ber a Toren jedoch in der Praxis 
ganz einfach, Wenn man sich erst einmal an die in Klartext nen Zeichen 
rn hat, wird man den großen Vorteil Pe, Schreibweise erkennen. 


Frank Brall 


<162> 
«52> 
<85> 
<149> 
<246> 
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I \ 1} * * * A ht k t 
Aus N ae können drei Zeichen von unserm nicht ver- 
— Steht für den Pfeil nach links 
Y Steht für das englische Pfu 
* Steht für den nach oben 
Klartext-Tabelle für Commodare 64 und VC 20 
DOWN CURSOR ABWÄRTS TASTE NEBEN RECHTEN 
up CURSOR HINAUF HIT-TASTE & TASE NEBEN 
RECHTEM SHIFT 

CLR SCHIRM SHIFT-TASTE & 2. BE ANZ BETTEN 
INST SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
HOME CURSOR IN ECKE 2.TASTE VON GANZ RECHTS 
DEL DELETE TASTE GANZ RECHTS OBEN 
RIGHT CURSOR RECHTS TASTE GANZ RECHTS UNTEN 
LEFT CURSOR LINKS SHIFT-TASTE & UNTEN RECHTS 
SPACE LEERZEICHEN LEERTASTE TASTE) 
Fi INSTASTE FUNKTIONSTASTE Fi 
Fr FUNKTIONSTASTE FUNKTIONSTASTE F2 
F ASTE FUNKTIONSTASTE F3 
F4 FUNKTIONSTASTE FUNKTIONSTASTE F4 
15) FUNKTIONSTASTE FUNKTIONSTASTE F5 
F FUNKTIONSTASTE FUNKTIONSTASTE F6 
Fr FUNKTIONSTASTE FUNKTIONST; F7 
FB F ‚TIONSTASTE FUNKTIONST, 
BLACK 'ARZ CONTROL-TASTE & 1 
WHITE WEISS CONTROL-TASTE & 2 
Bn ROT CONTROL-TASTE & 3 

AN TU CONTROL-TASTE & 4 
PURPLE PURPUR CONTROL-TASTE & 5 
GREEN GRÜN CONTROL-TASTE & 6 
BLUE BLAU CONTROL-T. 
YELLOW GELB CONTROL-TASTE & 8 
RVSON SE EIN OLT 3 
RVSOFE INVERSE AUS co L-Tı &0 
ORANGE NGE COMMODORE-TASTE & 1 
BROWN UN COMMODORE-TASTE & 2 
LIG.RED LLROT MMODORE-TASTE & 3 
DGREY DUNKELGRAU COMMODORE-TASTE & 4 
MGREY M AU COMMODORE-TASTE & 5 
LIG.G! HELLGR! COMMODORE-TASTE & 6 
LIG. BLUE COMMODORETASTE & 7 
HGREY HELLGRAU MODORE- 
CIRL CTRL-ZEICHEN CONTROL-TASTE UND DAS .,. ZEICHEN 
, 2. N SHIFT-TASTE UND DAS... EN 


GRAFIKZEICHEN COMMODORE-TASTE UND DAS. „ZEICHEN ° 
Shrtspace UNSICHTBARER CODE SHIFT: TER UND SPACE 


Klartext-Tabelle für Commodore C 16 und Plus 4 





DOWN CURSOR ABWÄRTS TASTE NEBEN INST DEL; RECHTS OBEN 
up CURSOR HINAUF 3. TASTE NEBEN DOWN VON RECHTS OBEN 
CR CLEAR SCHIRM T ÜBER RE 
INST EINFÜGEN -TASTE & TASTE GANZ RECHTS OBEN 
HOME CURSOR IN ECKE 2. TASTE VON GANZ RE! OBEN 
DEL DELETE GANZ 
RIGHT CURSOR RECHTS 4, TASTE VON 
LEFT CURSOR LINKS TASTE VON 
SPACE CHEN TASTE (GR 
Fi KTIONSTAS' FUNKTIONSTASTE Fi (VORHER DEFINIERE 
[7] FUNKTIONSTASTE FUNKTIONSTASTE F2 (VORHER DEFINIERE 
1) FUNKTIONSTASTE FUNKTIONSTASTE F3 
Fr IKTIONST/ FUNKTIONST. F4 DEFINIERE) 
5 FUNKTIONSTASTE TEL EIE F5 (VORHER DEFINIER| 
F6 FUNKTIONSTASTE NKTIONSTASTE F6 HER DEFINIER 
Fr FUNKTIONSTASTE FUNKTIONSTASTE 4 VORHER DEFINIER! 
FR FUNKTIONSTASTE FUNKTIONSTASTE F& (VORHER DEFINIEREN) 
BLACK SCHWARZ CONTROL-TASTE «1 1 

ITE WEISS CONTROL-TASTE & 2 

OT ROL-TASTE & 3 

CYAN TUERKIS CONTROL-TASTE & 4 
PURPLE PURPUR CONTROL-TASTE & 3 

3 GRÜN CONTROL-TASTE & 6 
BLUE BLAU NTROL/TASTE & 7 

LOW LB CONTROL-TASTE & 3 
RVSON INVERSE EIN CONTROL-TASTE & 9 
RVSOFF  INVERSE AUS CONTROL-TASTE & 0 
ORNG NG ÖDORE-T. &1 

BRAUN COMMODORE-TASTE & 2 

YLGN GELBGRÜN COMMODORE-TASTE & 3 
PINK ROSA COMMODORE-TASTE & 4 
BL.GRN BLAUGRÜN , COMMODORE-TASTE & 5 
L.BLU HELLBLAU COMMODORE-TASTE & 6 
DBLU DUNKELBLAU COMMODORE-TASTE & 7 
L.GRN HELLGR COMMODORE-TASTE & 8 
CIRL „. CTRL-ZEICHEN CONTROL-TASTE UND DAS ... ZEICHEN 
Sa GRAFIKZEICHEN SHIFT-TASTE _ Das .. ZEICHEN 
Ca GRAFIKZEICHEN COMMODORE-TASTE UND DAS ... ZEICHEN 
FLASBON BLINKEN EIN CONTROL-TASTE UND "," 


LASHOFF * BLINKEN AUS CONTROL-TASTE UND" 
SHURISPACE UNSICHTBARER CODE SHIFT-TASTE UND SPACE 





Genesis-Super-Assembler 


Der große Erfolg unseres Assem- 
blers für den C-I6 hat uns bewo- 
gen, dieses nützliche und für je- 

n C-16-Programmierer unbe- 
dingt notwendige Utility ab 
sofort auch separat zu vertreiben. 
Der komplette Assembler wird 
inclusive Demoprogramm und 
ausführlicher Anleitung entweder 
auf Diskette oder Tape geliefert, 
Tatsächlich ist GENESIS mo- 
mentan der leistungsstärkste As- 
sembler für den C-16/116/plus 4 
auf dem gesamten are- 
markt, Ein ganze Reihe von Fea- 
tures erleichtern dabei das Pro- 


grammieren in Maschinensprache 
ungemein. Das besondere Bon- 
bon für die Benutzer von nicht er- 
weiterten Systemen C-16/116 ist 
die Möglichkeit, Itexte ‚die 
in itung sind, auszulagern 
(auf Diskette oder Tape) ‚um so 
wertvollen Speicherplatz zu 
sparen. 


Genesis-Super-Assembler kostet 
15,- DM sowohl für Kassette 
wie auch Diskette und ist beim 
Tronic-Verlag,. PF 870, 3440 
Eswchwege (Tel.:05651/30011) 
zu beziehen. 





Justieren und Reinigen 


Hersteller:Robtek Limited, Unit 
4, Isleworth Business Complex St 
Johns Road, Isleworth, Middle- 
sex, TW7 6NL 

Vertrieb:Golden Games 


Wer die Commodore 1541 kennt, 
kennt aus die Probleme die nach 
einiger Zeit auftauchen können. 
Je nachdem wie oft man das Lauf- 
werk nutzt, verstellt sich die Mag- 
netkopf Ausrichtung des Lauf- 
werkes mehr oder weniger. Dies 
Toleranzen sind oft so gering das 
nur selten ein Ladefehler entsteht, 
allerdings können einige Kopier- 
schutzmerhoden ärgerlich auf die- 
se dejustierung reagieren. MA- 
GIC DISK Kir ist nun ein Utili- 
tie welches diesem Problem 
entgegen treten soll. Dieses Pro- 
gramm soll Softwaremäßig kon- 
trolieren in wieweit der Magnet- 
kopf verstellt oder die Geschwin- 
digkeit des Laufwerkes vom 
Standard abweicht, Dieses Pro- 
im wird zusammen mit einer 
GUNGSDISKETTE” 
und einer ausführlichen deut- 
schen Anleitung Lan 
Nach dem laden des Programmes 
erscheint zuerst eine wunderschö- 
ne Grafik des Floppylaufwerkes 
= erscheint das Hauptmenü 
es: 


Fi Gerätenummer 

F3 Geschwindigkeits Test 
F5 Ju Test 

F7 ers Programm 
F8 ENDE 


87 


Um das Programm in seinen Mes- 
sergebnissen zu prüfen, ließen wir 
4 verschiedene Floppylaufwerke 
durch das P mm untersu- 
chen. Das niss war sehr 
überraschend: Nur ein einziges 
rät wurde 1 ngchen 
ee mit m Wort 
"”GUT” bezeichnet, Alle 3 ande- 
ren Laufwerke schnitten mehr 
oder weniger schlecht ab, Interes- 
sant ist auch, daß die grafisch an- 
chende Messkurve nicht mit 

n Messergebnissen überein- 
stimmt, bei dem Laufwerk 
welches als gut bezeichnet wurde, 
zeigt die Messkurve das schlechte- 
ste Ergebniss, Offensichtlich ist 
hier das Programm noch nicht so 
ganz ausgereift, Überrascht waren 
wir auch deshalb, weil wir bisher 
mit keinem der vier Laufwerke 
Probleme hatten, aber vieleicht 
liegen wir immer noch unter der 
Toleranzgrenze. Übrigens der 
Messvorgang beruht offensicht- 
lich darauf, das die Diskette mit 
einem speziellen Messfile be- 
schrieben wird, was während der 
Messung in bestimmten Zeitab- 
schnitten untersucht wird. Aus 
diesem Grund darf die Diskette 
auch nach dem Laden nicht aus 
dem nr IH werden. 
Dies gilt genauso für den Justage- 
TER AHR nein si durch 
eine reche rafık gestal- 
tet, Allerdin hat man hier auf 
den ersten Blick erwas Schwieri- 
gigkeiten das Messergebniss zu in- 
terpretieren. Ein weiterer Blick in 
das Handbuch sagte uns jedoch 
bald, das unser‘ Laufwerk völlig 


report 


Dateiverwaltung auf dem (16 


Programm: Datei C16 

System: C16 

Preis: 29,90 

Hersteller: CS] Computersoft Jo- 
nigk, An der Tiefenriede 27, 3000 
Hannover I 


Ob es sinnvoll ist oder nicht, je- 
denfalls exestieren auch Dateipro- 
gramme auf dem C16. Wir waren 
gespannt, was ein solches Pro- 
gramm auf einem Rechner leistet, 
welcher nur eine maximale $pei- 
cherkapazität von ca 12000 Bytes 
besitzt 


Das Programm "DATEI C16” 
von CS] arbeiter noch dazu nur 
auf Kassette, was eine relative 


(auch RANDOM nt) Datei- 
verwaltung ießt, Da nach 
dem Laden desP i 


rogrammes 

lich knappe 6 KBytes Ram zur 
V ng stehen ist die Anzahl 
der Datensätze stark einge- 
schränkt. Um auf die Datensätze 
zugreifen zu können, müssen die- 
se ständig im Speicher gehalten 
werden. Um eine größere Anzahl 
von Datensätzen zu verarbeiten, 
bleibt nur die Möglichkeit mehre- 
re Dateien auf Kassette abzulegen, 
was aber erhöhten Arbeitsauf- 
wand erfordert. 

Die Bedienung sowie die Funk- 
tionen des Pro sind nur 
auf das Grundsätzliche eines Da- 
teiprogrammes beschränkt. Noch 
nicht einmal dies, denn eine 
Sortier-Funktion sucht man ver- 


gebens im Hauptmenü. Lediglich 
einfache Funktionen zum Suchen, 
Ändern, Eintragen, Abspeichern 
und Laden von Dateien wurden 
in das Programm integriert, Die 
einzelnen Datensätze eines Pro- 
grammes bestehen immer aus 5 
Kriterien, welche allerdings frei 
gewählt werden können. Die Ein- 
n beschränken sich auf 20 
ichen pro Eingabefeld, was si- 
cherlich 7 mager bezeichnet 
werden darf, Auch der Such- 
Algorithmus ist sehr begrenzt, le- 
iglich nach dem ersten Eingabe- 
feld kann eine Datei abgesucht 
werden. 
Alles in allem läßt sich wohl nicht 
behaupten, das mit dem Pro- 
gramm DATEI C16 umfangrei- 
che Datenme verwalten las- 
sen, was wohl mit einem C16 
auch undenbar wäre. Das Pro- 
gramm dürfte wohl für den 
Hobby-Anwender geschrieben 
sein, welcher seine Videofilme, 
LP’s oder ähnliches per Compu- 
ter verwalten möchte, Allerdin; 
ist auch hier zu beachten, das die 
Sammlung nicht zu groß wird. 
Frank Brall 


Positiv: 
Einfache Bedienung 


Negativ: 

Wenig Speicherplatz für Daten 
itet nur mit Kassette 

Keine Sortierfunktion 





verstellt sei. Nun gut dachten wir, 
legen wir mal die Reinigungsdis- 
kette ein und wählen den entspre- 
chenden "Waschgang”. Eine rıesi- 
Analog-Uhr zeigte wenige Se- 
eflscin danach an, das unser 
"Waschprogramm” im vollen 
Gange war. Als wir. nun den Ju- 
stage Test ein zweites mal durch- 
führten, sah das Ergebnis tatsäch- 
lich besser aus, allerdings war laut 
Dokumentation das Laufwerk 
immer noch stark dejustiert. Ob- 
wohl im der Dokumentation zu 
Macic Disk auch erklärt wird, wie 
man das Laufwerk wieder mit 
nase und etwas Fin- 
itzen in Gang setzt, 
Lu IE eh unser 
Laufwerk verstellt zu lassen, denn 
schließlich hatten wir bisher 
nicht die geringsten Probleme. 
Frank Brall 


CSompute mi 





Positiv: 

Einfache Handhabung 

Deutsche Dokumentation 
Negativ: 

Messkurve stimmt nicht immer 
mit Messwerten überein 

Relativ hoher Preis 


Montag bis Freitag 
14 bis 16 Uhr 
Tel. (05651) 300 13 
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Floppy-Jockey 
im Wunderland... 


Programm: Eis und Feuer, $y- 
stem: C-64, Preis: 79,95 , Her- 
steller: Euro Gold, Vertrieb: 
Rushware, Kaarst. 


3 Jahre hat es gebraucht, bis dieses 
deutsche Adventure das Licht der 
Welt bei Euro Gold erblickt hat. 
So lange war nämlich die Erstel- 
lungszeıt für Eis und Feuer, Ganz 
klar, daß ich auf dieses Spiel ganz 
besonders gespannt war, 


Nach dem Öffnen der gut gestal- 
teten Packung fielen mir gleich 3 
Disketten entgegen, die jeweils 
beidseitig bespielt sind. Welch ein 
Aufwand! Zunächst muß die 
Hauptdiskette geladen werden 
und ich sah alle positiven Erwar- 
tungen von diesem Mammut- 
werk zunächst bestätigt. Wäh- 
rend des Ladens ertönt eın flotter 
Sound, der wirklich hörenswert 
ist und die an der Erstellung des 
Adventures Beteiligten werden in 
einem Vorspann, ähnlich wie in 
Kino-Filmen, gezeigt. 


Auch der Einstieg in das Adven- 
ture ist gut gelungen: Man hat ei- 
ne "Mental-Reise” in eine andere 
Zeit gebucht. Nachdem ich über 
die Gefahren aufgeklärt wurde 
(unkontrollierbar) stimmte ich 
dennoch der Durchführung zu. 
Dann kommt das Komman- 
do:"Bitte Diskette B einle- 

> Wird gemacht! 

befinde mich also auf einem 
Waldweg und sehe einen Wege- 
weiser, Klar daß ich den lesen 
will! Leider gibt mir der Compu- 
ter zur Antwort, daß das unmög- 
lich ist, Bin ich blind? Wie dem 
auch sei, jedenfalls merke ich sehr 
bald, daß man sich mit dem Text 
ion ge sehr viel Mühe 

en hat. Der Computer gi 
nie nicht nur an , daß he 
stimmten Befehl nicht verwerten 
kann, bestimmte Worte fehlen 
auch in seinem Befehlssatz oder er 
sagt mir z.B. "Suche Dir einen an- 
deren Weg aus”, wenn er meint: 
”Es gibt keinen Weg nach We 
sten”. Auch das sagt er ab und zu. 
Die Antworten variieren also 
recht nett, was aber leider nichts 
daran ändert, daß sein Weort- 
schatz wohl recht dürftig ist. 


Nach etwas Suchen finde ich also 
ein Schloß mit sperrangelweit of- 
fener Tür, vor dem nur ein paar 
Wachen ihren Mittagsschlaf hal- 
ten. Ist ja prima, denke ich mir 
ebe ein: ”betrere Schloß” 
("gehe” versteht er nämlich 
nicht). Ganz niedergeschmettert 
erfahre ich, daß das "unmöglich” 
sei. Na, ganz so unmöglich kann 
das doch gar nicht sein, sonst wä- 
re das Adventure kein Adventure, 
dachte ich mir dann und probier- 
te diverse Satzstellungen aus ne- 
ben anderen Möglichkeiten, wie 
2.B. zunächst die Schwelle zu be- 
treten. Nichts klappt! 


O.K., dumm wie ich nun einmal 
zu sein scheine, verlasse ich mich 
auf die in der Begleitinformatio- 
nen angebotenen Hilfen, derer es 
zwei Sorten gibt: Zunächst wäre 
da der Systembefehl ”.hint”, Sy- 
stembefehle ändern nichts am 
Stand des Adventures sondern 
sollen den Bedienungskomfort er- 
höhen. Von Idee und Umfang 
recht brauchbar, helfen mir diese 
jedoch auch nicht weiter. Unter 
® ‚hint” erfahre ich, daß ich die gu- 
te Gelegenheit ja mal nutzen 
könnte, mir das Schloß anzuse- 
hen. Ich könnte ja versuchen an 
den Wachen vorbeizuschleichen 
(was das amm übrigens 
nicht kennt). Die zweite Möglich- 
keit besteht in der Nutzung eines 
weiteren Systembefehls, der laut 
Anleitung aber nur als "letzte 
Rettung” gedacht sein soll. 


Ich bin gerne bereit, mich retten 
zu lassen und dafür auch die ge- 
forderte Leistung zu bringen. 
Nach Eingabe des ”,‚Clue”-Befehls 
erscheint nämlich eine Zeile mit 
Buchstaben, die nach den Vorga- 
ben in der Anleitung "deeodiert” 
werden müssen (eine Heidenar- 
beit!). So war ich denn auch ge- 
spannt, jetzt des Rätsels Lösung 
zu erhalten. Um so größer die 
Enttäuschung als ich erfahre, daß 
ich das Schloß betreten soll See 
lich!), die Wachen schlafen lassen 
und mich selbst offen und ehrlich 
zeigen soll. Da lachen ja die 


Hü ! 
"Schloß betreten” 


Von w 
war ja'n Witz! Na dann laufe ich 


eben noch eine Runde durch den 
Wald, sche abgeknickte Bäume, 
Zwerge, die ich nicht ansprechen 
kann, eine Kirche, die ich nicht 
betreten kann und so fort. Aller- 
dings ist mir in der Zwischenzeit 


ein weiterer Systembefehl aufge- 
fallen, nämlich ”.Pic on”. Damit 
schaltet man die Bilder in das Ad- 
venture ein, die ich schon vermißt 
hatte. Die Grafik ist wirklich fan- 
tastisch! Martina Strack 


Die vorliegende 
auszugsweise Besprechung 
stammt aus unserem 


Tronic-Magazın 


»Aktueller 
Software-Markt« 


Den vollständigen Bericht, 
die aktuellsten Bildschirmfotos 


finden Sie in der 
neuesten Ausgabe ab... 


.. 22.12.1986 
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Maschinensprache mit AMSMONIX 


Programm: Amsmonix 
System:CPC 464,664 und 6128 
Preis: Kass, 49 DM, Disk. 59 DM 
Hersteller/Vertrieb:R.Schuster 
Electronic, Obere Münsterstr, 33, 
4620 Castrop-Rauxel 


Programmieren in Assembler !Si- 
cherlich kein neues Thema, je- 
doch gibt es immer wieder neue 
Hilfsprogramme, Monitor- oder 
Assembler-Programme auf dem 
Markt. Gerate beim Schneider 
zeigen sich sehr oft Unterschiede 
bei den Leistungen einen Maschi- 
nensprachmonitors. Durch die 
twas TE RAM/ROM 
hr ee das Edi 

vi nur das Editie- 
ren bzw. Bearbeiten von ROM 
oder RAM zu, selten können 
ROM und RAM gleichzeitig be- 
arbeitet werden. Mit AMSMO- 
NIX läßt sich nun gerade dieser 
Nachteil umgehen. Um Ihnen ei- 
De 
' ieses Maschi rachemo- 
Beh zu geben, habe ich die ein- 
zelnen Befehle kurz erläutert: 


A Speicherinhalt ändern 
Hiermit a sich der Inhalt einer 
ipeicherste ) . ändern. 
De augenblickliche Wert der 
Speicherstelle wird angezeigt und 
kann durch einen anderen Wert 
überschrieben werden. 


B Bildschirm löschen 
Zur besseren übersicht läßt sich 
hiermit der Bildschirm löschen, 


G Call 

Mit diesem Befehl können Sie ein 
Maschinenprogramm rufen. 
Trifft das Programm auf ein "RE- 
TURN” so wird in den Monitor 
verzweigt, und die entsprechen- 
den Registerinhalte angezeigt. 


D Disassembler 
Dies ist wohl der wichtigste und 
leistungsstärkste  Befe von 


FEil 
Ein bestimmter Speicherbereich 
wird mit einem Wert gefüllt. 


G GOTO 
Sprung in ein Maschinenpro- 
gramm, 


H Hilfsmenuü 

Dieser Befehl gibt eine Übersicht 
über alle Funktionen von AMS- 
MONKK. 


I Catalog Cass/Disc 
Dieser Befehl erklärt sich wohl 


selbst 


5 ren Be herblöcke 
Beliebig ic [öc) 
können 1a eben Bier Bereich 
kopiert werden. 


M Monitor 

Mit diesem leistungsstarken Be- 
fehl lassen sich Hexdumps von 
RAM oder ROM ausgeben. Ne- 
ben den Hexzahlen können auch 
ASCI- Zeichen und Prüfsummen 


mit Ausgegeben werden. 
P Druckerprotokoll 


Drucker wird ein bzw. aus ge- 
schaltet. 


R Binaer-Datei einlesen 

Dieser Befehl zeigt Ihnen die An- 
und Län eines 

Binär-Files auf dem Bildschirm 

an, Danach läßt sich die Datei ab 

einer beliebigen Adresse einladen. 


$ Suchen 

Eine beliebige Bytefolge kann im 
Speicher gesucht werden. Alle 
Adressen mit der gesuchte Byte- 
folge werden auf dem Bildschirm 
ausgegeben. 


T Text eingeben 

Mit diesem Befehl läßt sich auf 
komfortable Weise ein ASCHE 
Text eingeben, ohne ständig die 
ASCII-Tabelle vor sich zu haben, 


Z Register-Anzeige 

Durch das Drücken der Taste Z 
wird der Inhalt aller Register aus- 
gegeben. 


Der Assembler Profi wird bei der 
obigen Aufstellung der Befehle si- 
cherlich keine Besonderheiten 
feststellen, denn es stehen schon 
eine ganze Reihe von Program- 


men zur Verfügung, welche ähn- 
liches leisten. Lediglich die Mög- 
lichkeit neben RAM auch ROM- 


Bänke zu adressieren, hebt den 
Monitor von der breiten Masse 
ab. Leider vermisst man dafür bei 
AMSMONIX einen LINE- 
ASSEMBLER zum schnellen Ein- 
geben oder Verbessern von klei- 
nen Maschinenprogrammen. 


venort 


gear; un An- 
iglich Program- 
me und Speicher des CPC unter- 
suchen möchten, er dieses 

allerdings völlig aus- 
reichen. Für Assembler- 
Programmierer bietet der Her- 
steller übrigens noch ein weiteres 
Programm, welches wir in einer 
der nächsten Ausgaben vorstellen 
werden. 


Frank Brall 
Positiv: 
Einfache Bedienung 
RAM und ROM-Bänke lassen 
sich auslisten 


Laden und Speichern auf Kasset- 
te/Diskette möglich 
Negativ: 


Kein Line-Assembler 


Hardcopy auf Bildschirm 


oder Drucker 


Programm:Copysh 
System:CPC464/66476128 
Preis: 59 DM 
Hersteller/Vertrieb: DMV Da- 
tern & Medien GmbH, Postfach 
250, 3440 Eschwege 


Obwohl dieses Programm eigent- 
lich ausschließlich dafür ent- 
wickelt wurde, Bildschirmgrafi- 
ken auf das Papier zu bringen, un- 
terscheidet es sich doch in der 
Anzahl der möglichen Optionen 
positiv von zahlreichen Konkur- 
renzprodukten. Neben der Mög- 
lichkeit, Bilder aller drei Schnei- 
der MODE’s zu laden, speichern 
und darzustellen, können diese 
auch noch mit einem Grafikedi- 
tor verändert werden, Dieser Edi- 
tor ethält zahlreiche Funktionen 
wie FILL, INVERTIERUNG 
und ähnliches. Zwar kann man 
diesen Editor nicht mit einem 
Grafikpr vergleichen, 
aber für eine Beschriftung oder ei- 
ne kleine Modifikation des Bildes 
reicht es allemal aus. Besonders 
interessant und offensichtlich bis- 
her auch Einmalig ist die Mög- 
lichkeit, über einen einzigen Ta- 





drucken dauert nn etwas 
änger, allerdi ürfte COPY- 
sHöB auch hier zu den schnell- 
sten y-Programmen auf 
dem Markt gehören. In weni 
als 4 Minuten“wird eine ae 
te DIN A4 Seite bedruckt. CO- 
PYSHOP erlaubt den Benutzer 
das Hardcopy in 4 verschieden 
Größen DIN A4, DIN A5 und 2 
kleineren Maßen auf das Papier 
zu bringen, Dabei kein frei ge- 
wählt werden welcher Bildaus- 
schnitt ausgegeben werden soll. 
Eine weitere Einstellmöglichkeit 
beteht in der Wahl verschiedener 
RASTER, Praktisch jede Farbe 
läßt sich ein anderse Raster zutei- 
len, welches später bei aus 
drucken des Bildes benutzt wird. 
Ein spezielles Menü zur Drucke- 
ranpassung sorgt dafür das Sie 
Drake jeden belieben Drucker 
mit dem Programın ansteuern 
können. Komfortable Pull-Down 
Menüs erlauben gute Übersicht 
aller Funktionen und einfache Be- 
dienung des Programmes. 


Neben COPYSHOP befindet 
sich auch noch zwei weitere kur- 


AMSMONIX. Durch Ihn wer- W Binär-Datei speichern stendruck, eine Hardcopy auf ze Maschinenprogramme auf der 
den Maschinensprache in disas- Ein bestimmter icherbereich dem Bildschirm Be Da- Diskette. Eines dieser Programme 
semblierter Schreibweise ausgege- kann als Binär- abgelegt bei werden die Farben der Origi- erlaubt über RSX-Befehle Hard- 
ben. Es werden 24 Zeilen darge- werden. nalgrai in ents copys auf den Drucker auszu 
stellt, durch einen beliebigen Schwarz/Weiß Rasterungen um- ben. Das andere sale 
Tastendruck werden die nächsten X Medium-Wahl gesetzt. Das ganze dauer etwa 1-3 eine Art "SCREEN-FREEZER” 
24 Zeilen dargestellt, Durch die- Das Speicher-Medium Kassette Sekunden bis die originalgetreue da. Über Tastendruck läßt sich 
Taste ESC läßt sich jederzeit das oder Diskette kann gewählt Bildschirm-Hardcopy auf der damit die Bildschi keines 
disassemblieren beenden. werden. Mattscheibe erscheint, Das Aus- Spieles auf Diskette ablegen. 
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programme 
VC-20-Grundversion 





TORCH 


Versetzen Sie sich mal zurück in die 
Steinzeit. Sie sind der Neandertaler 
Roby und haben soeben das Feuer ent- 
deckt. Aber allein haben Sie nichts da- 
von. Also nehmen Sie sich ein Stlick 
Holz und rennen zu ihrem Stamm. 

Aber Vorsicht!!! Auf Ihrem Weg lau- 
ern die teuflischen Geister aus der Un- 
terwelt, Berührt Sie ein Geist, so sind 
Sie in die Hölle verdammt. Außerdem 
brennt die Fackel nicht ewig! Ihr Ziel 


ist es, Ihre Fackel am Bild- 
schirmrand zu erreichen, um dadurch 
das Feuer zu erhalten, 


Die Geister können nicht zurück, 

wenn Sie einmal unten angekommen 

sind. Also lassen Sie ichst viele 

Geister in den Aal stürzen, dies 
nämlich 30 Punkte, 

Sie die Fackel erreicht, geht es 
auf den nächsten Weg. Auf jedem Weg 
aber kommt ein Geist hinzu (bis zum 
fünften), wodurch das ee 


natürlich immer schwieriger wird 


Ab dem fünften Weg denkt sich der 
Teufel etwas neues aus: 

»Wenn ich diesen Typ mit meinen 
Geistern nicht üchtern kann, 
ha ich einfach von meinen Geistern 


berühren aber so nach und ar wird 
es immer schwieriger, echte Geister 
a Pseudo-Geistern zu unterschei- 


Im ah bekommen Sie pro ge- 


Site Nr einen Bonus von 
en erkanı 


Haben Sie eine 3-kB-Erweiterung 

können Sie die beiden Teile zusam- 
so daß daraus ein Pro- 

gramm wird, Die Zeilennummern 

remain re 

Ansonsten muß ei nachgeladen 

werden (aber erst starten). 

Und nun; Viel Glück! 


ran LISTING + CHECKSUMMEN (V V1.0) 


REM meet 











ı <128> 
2 REM * COPYRIGHT * <249> 
3 REM " BY * <226> 
4 REM # TIMM HAASE #* <204> 
5 REM # UND x <ı11l> 
6 REM #BJOERN GRÜEGER« <207> 
? REM HunennnrnrHenee <134> 
8: cb6> 
73 <67> 
10 PRINT" <CLEARY" sPRINTCHR$ (14) CHR$ (B) ı POKE36B78 

‚15 <147> 
11 POKESIi „O: POKES2, 28: POKESS ‚O0: POKES& ‚28: CLR: CB= 

LAT: <88> 
12 READA: IFA=- 1 THENPOKES36859 „255: 607015 <175> 
13 FORN=0T07:READB: POKECB+AHB+N „Bi NEXT <178> 
14 GRTDL2 <193> 
15 POKES4879 „25: PRINT" {RED CLEAR 3r” <17>° 
16 PRINT" SPACEITLLISPACEILELISPACEITLTTSPACEIEL 
LISPACEIT TSPACEIT <71> 
17 PRINT"{BLACK SPACEIDDDISPACEIDDDISPACEIDDD{SP 
ACEIDDDISPACEIDISPACEID <206> 
18 PRINT" SPALERIDISPACEZIDISFPALEIDISPACEI 
DIREDIT {BLACKYDISPACEIDISPACETID{REDIT (BLACK>D 179» 
1? PRINT" {BLACK SPACEZIDISPACEZIDISPACEIDISPACEI 
DDISPACEYDISPACE REDITIBLACK SPACEIDDD <154> 
20 PRINT"LEB SPALERYDISPACEZIDLEREDIET CBLACKIDC 
SPACEIDISPACEIDISPACEYDIREDITL {BLACKIDISPACEID{SP 

ACE}D <149> 
21 PRINT" SPACEZIDISPACEZIN\DITSPACEIDISPAC 
EIDISPACEI\DITSPACEID{SPACEID <136> 
22 PRINT" BLACK BYSON SPACE2) (CT) (SPACE) 17G 
BiSPACE}BYISPALEZ) ZEUS" <175> 
23 READX$: IFX$="#" THEN2B <105> 
24 FORE=1TDLEN (X$) PRINT" CHOME DOWN" <201> 
25 PRINT"CHOHE DOHN21 RVYSONY"HTAB(ZOIMIDE (XS ,E,1 

’ <205> 
25 PRINT" CHOHE RYSON RIGHTI"CHR$ (20) :FORV 

=1T01 10: NEXT: POKES4877 „200: POKE34877 ,O <224> 
27 NEXT:GDOTO23S <115> 
28 FOKE198,0:WAIT198, 1:POKE198B,01POKE36849 ,240 <54> 
27 PRINT" ICLEAR BLACK DOWN? SPACE)IPLENSE (S PACEIL 
IADLSPAGEI THE LSPACEIMAINEDOHNSI" <147> 
30 DATAO,16,36,%6,120,253, 255, 255,255 <173 
621 DATA1,0,32,96,224 ,240 ,240, 248,248 <223> 
>32 DATA2,0,0,0,0,14,3,7,71 <14> 


33 DATAZ,3,35,51,255,255,295,255,255 
34° DATAA ‚255,255, 255,255, 255 ,295 , 255 ,255 
55 DATAS, 252,254 ,254 ,255, 253,235, 253,255 
34 DATA&,0,0,0,192,249,240, 224,240 
37 DATA7 ‚228, 248,255 ,255, 255,255, 255,255 
34 DATAB,231 ,259, 253,295, 255,253, 255,255 
39 DATAF,0,1,9,27,31,127,127,255 
40 DATA10,0,0,192,236, 253,254 ,255,255 
41 DATAL1,7,15,31,127,255, 251,251 ,63 
42 DATA12,132,207 ‚255,255, 255,247 243,255 
43 DATA13,224,244 ‚248,252, 252,248, 254 254 
44 DATA14,31,71,235,235.247 ,247,127,63 
45 DATA15,255,187,253,255,255,205,223,253 
46 DATA16,252,249,240 ,248 252,252 252,240 
47 DATA17,31,247,62,12,0,0,0,0 
48 DATA18,255,255,124,124 ‚254 „254 ‚252,254 
49 DATA19,240,0,0,0,0,0,0,0 
50 DATA20,254 ,255,255,127,126,254,255,255 
51 DATA21,0,60,127,110,126,124,40,56 
52 DATAZ2,06,60,124,82,220,231,120,126 
SS DATA2S,60,60,54,118,110,110,111,58 
54 DATA24 ‚60,60 ,60,60,60,60,30,31 
55 DATA25,16,56,120,112,192,128,0,0 
56 DATA28,60,126,864,126,99,63,63,118 
57 DATA27,2,34,54,55, 127,255, 259,255 
SS DATA28,255,259, 127,127,63,83,15,3 
5? DATA29,255,255,254,254 ,252,252,240,192 
60 DATASO, 235,254 ,252,240,192,240, 252,255 
61 DATA32,0,0,0,0,0,0,0,0 
62 DATA-1 
63 DATA"BEITSPACEIDEMISPACEISPIELTSPACEI "TORCH'L 
SPACEIGEHT (SPACEIESCSPACE}DARUMLSPACE)} MDEGL ICHST 
{SPACE)VIELE (SPACEIGEISTERLSPACEIUNTEN" 
64 DATA" {SPACEIANKOMMEN (SPACE) ZULSPACEILASSEN. (8. 
PAGE} JEDER (SPACEIBEIST (SPACEIMACHT [SPACEISOTSPAC 
EIPUNKTESPACEIMEHRLSPACE} ! ! !XSPAGE}I IN{SPACEISPA 
ETEREN" 
65 DATA" [SPACEILEVELN{SPACEIBLEIBENTSPACEIGEISTE 
RISPAGEI AUF (SPAGE?DEM{SPAGEIBILDSCHIRN (SPACEISTE 
HEN, (SPALEIUMLSPACEIDEN{SPACEISPIELERTSPALE) ZU" 
66 DATA" (SPACEIVERWIRREN. (SPACE) (C) TSPACEILFBSTS 
PALEIBYSPACE3YTIMMLSPACEIHAABE (SPAGEIELSPACHIBI 
OERN{SPACE) GROEGERLSPÄCEI » u 0...» (SPACE1SI" 
67 DATA" (SPACETI" 
58 DATA”R" 
ENDE DES LISTINGS 


VEZO LISTING + CHECKSUMMEN (V V1.0) 


67 POKES6B69 „253: PRINTCHRS (8) CHR$ (14) :6DTOL1SO 
70 DATA7711,7702,7706,7710,771& 

71 FORI=1T0S:READH (TI) =M{DI=HII) EWELI=S2ENEXT 

72 A=1:B=1:ı0=0: W=32: 8=1:6GF=9 

73 DATAO,0,1,18,1,5,1,12,12,1,11,9,13,5,11,13,12 
„18 

74 FORU=1T09s+READTI (U) „T2{U) :NEXT+:RESTORE 

75 POKE3S6487% „Bi PRINT" BLUE)" POKES6BAP „255 

7& PRINT"{CLEAR RVSONISCORE: (SPACEIO" 

77 PRINT"(HOHE DOWN SPACESI@ATSPACE1ON SF 

78 PRINT" (SPACE3IBEDEF (SPACESI I@IDDGF 

77 PRINT" (SPACE2}IHDDDGJITLSPACEIFECDDDDDDI 

80 PRINT" {SPACE} IDDDDDDDJICDDDDDDDDDJ” 5 

81 PRINT" IDDDDDDDDDDDDDDDDDDDDD" 3 

82 A$="IGREENYKLMIDOHN LEFTZINOPCDOHN LEFTSIORST 
DOWN LEFT2 REDYTLUP LEFT REDIT“ 

83 PRINT" GREEN)" 

84 FORI=1T09 

85 PRINT” CHONEI ":FORD-ATOTILII+S 

86 PRINTCHR$ (17) 3 :NEXTOSPRINTTABLTZITIIASIıNEXTıP 
RINT"CHOHE DOWN143" 

87 AStiI="CYELLOWMIUCDOHN LEFT REDIVLPURPLEIYTDOM 
N LEFT2 CYANIW" 


BB A$(Z)="(VELLDMIUDOHN LEFT REDIV{PURPLEIYDON 
CLAN? K" 


N LEFTZ 

87 AStSI="IYELLOH SPACE DOHN LEFT. BED SPACE DOWN 
LEFT. CYAN SPACEI" 

70 AslA)="LYELLOM SPACE DOWN LEFT RED SPACE2 DOW 

H LEFT2 CYAN SPACEI“ 

91 T1#="000000" :POKE7987 „25: POKESB6HBS „1 

92 REM *5AME#* 


73 JFP=PEEK (37137) 1 POKE3S7154 , 127: JB=PEEK (57152) PP 
0OKE37154 ‚255: POKE36B76 , 01 POKE34877,0 
74 IFAJFANDLEI =OTHENA=A-1:P=11:608UB127 


Compute mib 


<97> 
<37> 
<254> 
<5B8> 
<70> 
<15> 
<131> 
411? 
<67> 
<125> 
<105> 
<171> 
<ı10> 
<25> 
<a1l> 
<195> 
<123> 
<126> 
*45> 
<48> 
<195> 
<25> 
<20> 
<1977> 
<106> 
<75> 
<178> 
<100> 


<174> 


<170> 


<139> 
<245> 


<26> 
<15B8> 
<232> 


<125> 
<B4> 
<71> 
<144> 


<B1> 
<a9> 
<163> 
<31> 
<41> 
<129 
<7> 
<20> 
<113> 


<2u> 
<18> 
<205> 
<111> 
<195> 
<176> 
<201> 
<11> 
<173> 


<22> 
<973> 


<26> 
<32> 


1187 





95 IF (JBAND128) =OTHENA=A+1: B=2: BOSUB127 <92> 
76 E=C+13 IFC=1THENPRINTTAB (A) "{UPZI"ARLL) <107> 
97 IFE=2THENPRINTTAB (A) "LUP3I "AS (2) ı0=0 <148> 
98 IFB=2THENFRINTTAB(A-1)" (UPZ} "AS (3) <1> 
99 IFB=1THENPRINTTAB(A+1) "(UPII "AS LH) <9> 
100 IFA=ZOTHENA=11PRINT“CHUNE DOHNIZ RIGHTZO SPA 

CE DOWN LEFT SPACE2 DOWN LEFTZ BPACEN” ‚G0SUB120 <17> 
101 IFG=>6THENG=5 <173> 
102 IFTI$="000010"THENGH=54 <242> 
103 IFGH=S4THENGF=GF+1 <57> 
104 IFGF=1THENPOKES4B77 ‚241 BF=BF+1 <136> 
105 IFGF>2THENGF=O <63> 
106 IFASZTHENA=1+ PRINT" (HQHE DOWNIZ SPACE DOWN L 

EFT. SPACE LEFT <255> 
107 FORI=1T06:D(1)=INT (RND(1)#3) 1 NEXT <9> 
108 FORI=1T06 <33> 
109 IFD(II=1THENE(TI=-1 <243> 
110 IFD(TI=ZTHENE (T)=+1 <237> 
4111 POKEM{T) „WELI EWITI)MPEEKIM{TI+ELCTI +22) rM(I)=M 

(I) +E(1)+22: POKEN(I) „26 <51> 
112 IFM(I} >BIOOTHENFORV=1TOG:POKEM IV) „WIV) IMIVI = 

H(V) EPDKEM (VI „WIV) aWLVI=32: 5=5+30: NEXT <233> 
115 IFPEEK (MI) +E1 (13 +22) >ZOANDPEEK (MCLI+ELLII+2 

2) <264THEN141 <120> 
114 IFPEEKI(M(II+ELLTI+22I=21THENIA1 <249> 
115 IFPEEK(M{II+E1(1)+22)=22THEN141 <13> 
116 IFPEEK(MCI)+EI(T)+22)=23THEN141 <34> 
117 IFPEEK(M(I)+EL (I) +22)=24THEN1A1 <55> 
118 NEXT: IFGF=2THENPOKES4879 ‚Br GF=0 <103> 
117 601093 <11> 
120 REM WAHL <20> 
121 6=B+1; 1-0: V=0: TI$="000000":GH=0: BF=0: 8=8+500 <78> 
122 PRINT"t DOHNII SPACE RVSON YELLOWIENTERT 
SPACEINEXTISPACEILEVEL (SPACE) ! !ISPACEI" <63> 
123 FORPO=1T02500: NEXT <74> 
124 PRINT"CHOHE DOWN13 SPACE21)" <32> 
125 PRINT"{CYAN HOME RYSONISCORESPACENH "HS: POKE 

7987 ,25: POKESG4BS5, 1 <229> 
126 RETURN <12> 
127 REM GERAEUSCH <172> 


128 POKE34878, 15: POKES4877 „200: PDKE3S48977 „Os POKES 


programme 


6678,0 

129 RETURN 

130 POKES6879 ‚25: PRINT" CLEAR DOHN4I" 

131 PRINT"tRED SPACEIELLCSPÄCEITLL TSPACEITELTSPA 
CEITLLTSPACEILISPACEH 

132 PRINT"{BLACK SPACEIDDDISPALEIDDDISPACEIDDDIE 
PACEIDDDISPACEIDESPACEID 

133 PRINT"{BLACK SPACEZIDISPACEZIDISPACEIDISPACE 
IDLREDITTBLACKIDISPACE>DISPACESIDEREDIL (BLACKYD 
134 PRINT"{BLACK SPACEZIDISPACEZIDISPACEIDISPACE 
IDD“SPAGEIDISPAGE REDILIBLACK SPACEIDDD 

135 PRINT" (BLACK SPACEZIDISPACE2IDLREDITLBLACKID 
ASPACEIDISPACEIDISPACEIDIREDYT {BLACKIDISPACEIDIS 
PACE)ID 


136 PRINT"L SPACEZ)D<SPACEZ) \DI KSPACEIDISPA 
CEID{SPACE} \DITSPACEIDISPACE 

137 PRINT" tDOWN& RIGHTZ eg BLACK3 (CI TSPACEI1F 
BatSPACE)IBYLSPACE2I ZEUG" 

138 POKE34878, 15: FORL=250T02008TEP-24 POKESEB7&;L. 
: FORM=1TO100:NEXT=NEXT 

139 FORL=205702505TEP2: POKES687&,L4 FORM=1T0100:N 
EXT: NEXT: POKES6876 ,O: POKES6878,0 

140 POKE198,0:WAIT19B, 14 POKE178,0:G01070 


141 PRINT" CHONE RIGHTS GAMES 


DOHNAL RVYSON GREEN) 
BACE YELLOMIOVERTSPACE BURPLEI! "3 FORT=1 1050001 


ENDE DES LISTINGS 


ak uk % 





<143> 
<15> 
<115> 


<133> 





Vc- 


+ 








Bomberman haßt Luftballons. Sein 
Haß treibt ihn dazu, Bomben zu le- 
‚in der Hoffnung, die verhaßten 
Fenallone mögen durch die Ex- 
Bug vernichtet werden. Luftbal- 
sind jedoch launische Gesellen. 
Mal fliegen sie ziellos umher, dann 
verfolgen sie unseren Bomberman 
zielstrebig... 
Spiel 
Gesteuert wird mit dem Joystick, 
wobei der Feuerknopf dem Legen 
der Bomben dient, Es können maxi- 
mal 5 Bomben gleichzeitig im Spiel 
sein, Die Mauersteine wer- 
den von deren Explosion durch- 
sch — so kann man sich den 
Weg freimachen. In manchen er 
kleinen Mauersteine befinder sich 
ein Extraleben, welches durch eine 
Explosion freigelegt wird. Dieses 
Extraleben kann aber auch durch ei- 
ne weitere Explosion oder durch ei- 
nen Luftballon zerstört werden, 


Verliert man ein Leben, weil ein 
Luftballon Bomberman erreichte 
oder man in eine Explosion geriet, 


so beginnt man den jeweiligen Le- 
| vel von vorn, Es gibt 4 ea 
Level: 
1. Normal 
187 


Bomberman 


2, Kleine Mauersteine erscheinen 
und verschwinden; Nur allzu- 
leicht tun sich Sackgassen vor ei- 

3. Alle kleinen Mauersteine blin- 
ken; Die Übersicht wird da- 
durch noch mehr erschwert. 

4. Bomberman legt kontinuierlich 
Bomben, ohne ihr Dazutun; 
Man muß ständig in Bewegung 
sein! Zur Warnung sieht man in 
der obersten Zeil: »AUTO- 
BOMBI« 

Nach jedem vierten Level fängt 
man wieder mit dem ersten an, wo- 
bei jedoch ein Luftballon hinzu- 
kommt und die Zeit vom Legen bis 
zum Zünden der Bomben verrin- 
gert wird. 
Der Bomus, der ebenfalls im oberen 
Informationsblock angezei wird, 
wird ständig herunt Ge- 
winnt man einen Level, so wird der 
verbleibende Bonus zu der Punkt- 
zahl hinzugezählt. 
Da dieses Spiel Ihnen auch ein we- 
nig Strategie abverlangt, können Sie 
es mit Fi unterbrechen und mit F3 
fortsetzen. Dadurch bekommt man 
die Chance, die Übersicht zu ge- 
winnen, 


VvC20 LISTINB + CHECKSUMMEN (V V1.0) 


6070200 

ERETREHENEH 
BOMBERMAN 
WRITTEN BYı 
OLIVER GUMTAU 
KIRSCHENWEG 25 
2057 REINBEK 

EXKLUSIV FUER D. 
TRONIC-VERLAB 

VRRREUREEENEHUNIER NN 

10 INTERRUPT 

12 DATA120,162,34, 180, 29,142,20,3,140,21,3,99,9& 

‚120,162, 191,160,234,142,20,3 

14 DATA140,21,3,88,96,198,4,208,59,169,4,133,4,1 

62,6,202,202,202,202,202,202 

15 DATA189,90,3,133,247 

1B DATA189,91,3,133,249,160,0,177,247,168,192,3, 

208,2,169,4,192,4,208,2,169,5,192,5 

20 DATA208,2,169,8,192,6,208,2, 169,3, 160, 0,145,2 

47,224 ‚0,200, 203,7&,194,234 

22 FARBE U. JOYSTICK + 

24 DATA169,44,133,251,133,253,169,30,133,292,167 

‚150,133,254,160,0,177,251 ,170,189,195 

24 DATA29,145,253,230,253,230,251 ,208,242,230,25 

4,230,252,165,252,201 ,32,208,232 

28 DATA24,173,17,195,41460,133,35162,127,142,34, 

145,173,32,145, 162,255 

30 DATAIA2,34,145,91,128,101,5,133,5,9& . 

32 BILDSCHIRM LOESCHEN 

34 DATA160,0,169,44,133,291,169,30,133,252,169,1 

6,145,251 ,230,251 ,20B,248,230,252 

36 DATA165,252 ie 208,240,76 E 

38 FARBLISTE 

40 DATA2,6,8,4,4, 2, 4 =, 5,5,5,5,5,5,7,4,7,7,747 


SOysoeuUPBun»=o© 
m.u.n.n.n.. 
wire %* 


Computbe mib 


<196> 
<25> 
<154> 
<192> 
<120> 
<174> 
<a5> 
<113> 
<230> 
<33> 
<Aaa> 


<130> 


<202> 
<37> 


<172> 


<13> 
<235> 


<185> 
<205> 
<126> 
<70> 

<190> 
<193> 
<195> 
<359> 


<201> 


a 








programme 


98 SONDERZEICHEN 2 
100 DATA255,255,255,255, 255, 255,233, 255 
101 DATA126, 25% ,255,255,255,255,255,126 
102: DATAO,0,60,50,60,60,0,0 
103 DATAO,&2,107,127,127,62,1,0 
104 -DATAO, 28,42,62,62,28,2,0 
105 DATN28,52,42,62,62,62,28,2 
106 DATAO,28,42,62,62,28,2,0 
107 DATA14,56,76,92,124,124,56,0 
108 DATAS6,56,0,124,186,56,40,40 
107 DATA56,56,0,124,188,56,40,8 
110 DATAS&,S6,0,124,122,56,40,32 
111 DATASs,56,0,56,56,24,40,36 
112 DATAS6,56,0,356,56,24,16,16 
113 DNTAS4,56,0,56,56,.48,40,72 
114 DATAS6,56,0,56,56,48, 16,16 
115 DATA120,76,76,124,98,98,98,124 
114 DATAO,0,0,0,0,0,0,0 
117 DATA197 ,254 ,223,247 ,126, 225,253, 111 
118 DATA185,174,213,89,174,101,219,117 
119 DATAS7,178,4,81,138,64,18,162 
120 DATA1,48,0,18,128,8,64,2 
121 DATAO,3,6,4,15,13,15,31 
122 DATA224,248,120,60,108, 196, 229,244 
123 DATA17,28,30,31,31447,112,16 
124 DATA252,248,120,112,224,128,0,0 
125 DATA7,31,30,60,54,35,39,47 
126 DATAO,192,96,32,240,240,240,216 
127 DATA63,31,28,14,7,1,0,0 
128 DATA216,152,24,24,56,244,14,8 
200 POKES&, 25: POKESS, 192: POKES2,2S: POKES1,192 
205 POKE34879 , 14: PRINT" {CLEAR} " tPOKES6B69 , 255 
210 FORI=7432107439: READA:POKEI ,AzNEXTI 
215 FORI=71491073991 RENDD: POKEI „Dı NEXT 
220 eg 
225 PRINT" R DOWN4 RIGHT2 PURPLEYUVERIGEHTIF} 
VER PRIMTSSRLENTESUNTAIGHTZ RVSON?BÜMBERMA 
NLERIGHTZ2 RVSOFF PURPLEIEN" 
230 PRINT" RYSON DOWN2 RIGHTE REDITEIL{SPACEI2": 
PRINT" {RYSON DOWN RIGHTSIYWIRDISPACEIGELADENTBLAC 
Kr” 


235 POKE19B, 1: POKESS1 „131 
ENDE DES LISTINGS 


<73> 
<244> 





VC20 LISTING + CHECKSLUNMEN (V V1.0) 


0 G0T0100 

1 DATA145,197,201,39,208,6, 16%, 197,201 ,47,208,25 
o s 

2 LUFTBALLONS F 

3 DATA169,0,133,6 

4 DATA162,6,202,202,202,202,202,202,189,86,3,208 
,3,76,16,27,134,9,189,99,3,32,220,27 

& DATA24,105,30,24 

&@ DATA133,252,152,166,7,125,88,3,133,251 ,165,252 
‚105,0,133,252,160,0,177,251,24 


10 DATA105,239,144,8,169,0,157,86,3,76,16,27,189 
‚86,5,201,1,209,83,56,189,97,3,233,1 
12 DATA157,87,3,208,10,169,2,157,86,3,169,20,157 
‚87,3,169,0,133,2,56, 189,88,3,229,0 
14 DATA14,10,169,2,133,2,56,165,0 
16 DATA253,88,3,133,9,169,1,133,3,56,189,89,3,22 
9,1,16,10,169,3,133,3,56,165,1,253 
i8 DATABI,3,164,2,56,227,7,48,6,164,3,165, 2,133, 
3,24,144,34,56,189,87,3,233,1 
20-DATA157,87,3,209,10,169,1,157,86,3 
22* DATA169,20,157,87,3,134,9,24 ,32,148,224,165,1 
41,41,3,168,166,9,199,88,3,133,181,189 
24 DATABP,3,133,191,172,0,208,2,199,181,192,1420 
8,2,198,191,192,2,208,2,230, 181 
2& DATN192,3,208,2,230,191,134,9,164,191,32,220, 
27,24,105,30,24,133,254,152,166,? 
28 DATA1O1,181,133,253,165,254,105,0,133,254,180 
‚0,177,253,24,,105 
30 DATA239,144,8,169,0,137,86,3,244144,33,56,177 
.253,233,7,16,22,189,86,3,201,1,208,43 
32 DATA165,3,201,255,240,37,164,3,169,258,133,3, 
76,138,26,177,251,145,253 
34 DATA169,16,145,251,165,1891,157,88,3,165, 191,1 
87,89,3,165,253,157,90,3,165,254 
36 DATA1S7 ‚PB, 86,3,240,2,250,6,224,0,240,3 
»76,211,25 
37 EXPLÜSIONGKONTR. ı 
38 DATA160,0,169,44,133,251,169,30,133,252,177,2 
51,170,201,17,208,2,162,18,201,18,208,2 
40 DATAL62,19,201,19,208,2,162,20,201,20,208,2,1 
62,16,138,145,251 ,230 ,251 „208,222 
41 DATA230,252,165,252,201 ,32,208,214 Bi 
42 BOMBENKONTOLLE P 
43 DATA142,15,202,202,202,189,60,3,240,118,189,& 
1,3 
44 DATA133,251,199,62,3,133,252,160,46,177,251,2 
01,16,208,4,169,7,145,251,56,189,60,3 
46 DATA233,1,157,60,3,208,85,169,17,145,251,138, 
72,162,9,202,202,224 ,255,240,49 
48 DATA188,78,3,177,251,240,243,201,1,240,239,20 
1,2,208,29,169,18,145,251,134,9, 152,72 
49 DATA32,148,224,166,7,104,169,165,141,41,63,20 
8,4,169,15,145,251,202,24,144,20 
SO DATA169,18,145,251,202,188,78,3,177,251,240,8 
„201 ,1,240,4 
52 DATA169,19,145,231,202,224,255,208, ar, 104,17 
0,224 ,0,240,3,76,84,27,76,100,29 
sä REM U.P. Y-REBISTER » 22 
56 DATA169,0,133,98,132,99,162,144,56,32 ‚73,220, 
32,12,220,169,0,133,98,160,22,132,99 
SB DATA1A2,144,56,32,73,220,32,43,218,32,170,20% 
96 
100. POKE36879 , 14: PRINT" (CLEARY":POKES4869 „285 
105 FORI=4593107167: READA:POKEI „ArNEXTI 
110 PRINT"CCLEAR DONNA RIGHT2 PURPLEYUVERIGHTI3) 
VZ"SPRINT" CRIGHTZIWXCRIGHTZ RYSON} BOMBERMA 
NCRIGHTZ RVSOFF PURPLEYEN\" 
115 PRINT"{RVSON DOHNZ RIGHTS REDIHAUPTTEIL" 
120 PRINT"{RVSON DOWN RIGHTSIWIRDISPALEIGELADENT 
BLACK)" 
125 POKE198,11POKE631,131 

ENDE DES LISTINGS 


<67> 


<21> 
<195> 


<52> 


<231> 
<181> 


<103> 
<115> 
<B2> 

<196> 
<30> 

<165> 
<125> 


<72> 
54) 


<167> 
<90> 
<201> 
<233> 
<2354> 
<25> 
<106> 
<971> 
<23> 
<206> 


<101> 
<214> 


<220> 


"<231> 


<277> 
“206 


<85> 
<222> 


<ı182> 
<134> 


VC20 LISTING + CHECKSUMMEN (V V1.0) 


0 FOKE37877 ,255:DIMZ (3,1942 10,0)=8:Z10,13=8: Zt1, 
0)=9; Zt1,1)=101212, O)=11:2t2, 1)=12 


1 2153, O=13:213, 1)=144 FORI=828101023: POKEI „OeNEX 
T 


2 FORI=1T09H READT (I) :NEXT:FORI=B48TDASS:READA:PO 
KEI ,A=NEXT 

4 FOKE34879 ,8: POKEI6849 „255: TA$="30202220" 

6 T#="141465456544689098664594565422140141465A565 
446870786645459866890986645456542214000" 

8 L$="231223121131224223122312113122422312231211 
312242251223122312242251223121131224244" 

16 PRINT" {CLEAR DOWN2 RIGHTZ2 PURPLEIUVLEFTZ DOH 
NIWXCRIGNTZ GREEN RVYSON}BOMBERMANLRIGHTZ RVSDEF 

PURPLE>LN{LEFT2 UPYIYZ" 


<106> 
<202> 


x37> 
<171? 


18 IFSCHHSTHENHS=SC 

20 PRINT"IYELLOH RVYSOH DOWN4 RIGHTZIYOUR{SPACEIS 
EOREISPACE} "SCHPRINT"CRYSON DOWN RIGNT2IHIGHSCO 
REISPAGE2)1"HB 

22 PRINT"(DOWN3 RIGHT2 PURPLEICTSPACE YELLOK RVS 
ONI=TSPACEISOTSPACEIHPUNKTE" SPRINT" RIGHT2 Y 
ELLOWIOTSPACE RVSOHI=LSPALEIEXTRALEBEN" :POKE7467 
‚6:3 POKEBSE, 32 

24 POKEBSI,3118Y57432: PRINT" {RVSON RED DOWNA RIG 
HTSIFEUERKNOPF" : T=O: R=13 TA=0: POKES6B7B, 15 

24 TA=TA+1ı IFTA=FTHENTA=1 

28 POKES6877 ‚BO#VAL (MID$(TA$,TA,1)) :POKESABTE,PE 
EK (36878) -3 

30 Reft-13 POKE34877 ,0: IFRPOTHENS& 

32 T=T+1: IFT=BZTHENT=1 

34 POKES6875,T1(VAL(MID$(T$,T,1)) ) :POKES4S78,15:R 
SVAL(MIDE(LE,T,1)) 

36 FORI=1T0120: NEXT: IF (PEEK (37137) ANDS2) =32THENB 
01024 

Sg POKES4875,018Y87445: T$="":L$="": TA=0:Rs0ıLE=3 
sAL=11L=0:M=0: 2Z=8: SC=O 

40 L=L+1:M=M+1s IFMCSTHENA& 


Compute mib 


s143> 


<31> 


<94> 


<147> 
<83> 


<111> 
<204> 
<133> 
<i6> 
<36> 


<173> 
<95> 





programme 


<85> 


42 M=1:Al=AL+1: IFAL>2STHENAL=25 <15> | 108° IFCJANDIA) =OTHENRX=-1rV=2: GOSLUB200:G0T0111 
44 227=7I-1: IFZZ=4THENZZ=S <120> | 109 IFtJANDI28I=OTHENRX=1 1: V=35:G05U8200:G0T0114 <141> 
46 Tb=0: TN=0: B=500+420#(L-1) :POKEAA1O,AL#6: POKE7A 110 IF{JAND4)=OTHENRY=-1: V"11B0SUB200:B0T0111 <14> 
67 ,AL#61POKES6878,239 <60> | 111 IFtP>2ANDP<7IORPILGSTHENA40O0 <92> 
48 FORI=I9T0180:POKES6855, IrNEXT <194> | 112 POKE76B04+X+22#Y ,Z (V U) :5V57524 <113> 
50 PRINT" CCLEAR RVSOH YELLOHFLEVELS "HL3PRINTFERV 114 IFPEEK 6) =SOTHEN450 <72> 
SONY BONUS: {MHITE) "3 Bı5Y87592 <8> 11& IFTW=1 THENTN=TN+2: POKES4876,TNı IFTN>ZSOTHENT 
51 IFM=4THENPRINT" CHOHEI"TAB(I1)" {RED RVYSONIAUTO W=03 TN=O <124> 
-BOMB! " <ı12> | 130 GOTD100 <189> 
53 PRINT"CHOHE DOWNY"TABCIS) "GREEN SPACESY" <8> 180 IFPEEK (828+BZ#3) < >OTHENRETURN <141> 
55 FORI=7724107744:POKE1 „O1 POKEI+440 ,0:NEXT:FORI 182 TW=1+ TN=230-77#2:D=7634+%+22%Y: POKEB2I+BZ#S, ’ 
=77461081425TEP22:POKEI „O:POKEI+20,0 <67> | DAND2SS: POKESSO+BZR3,D/256 <133> 
60 NEXTIEFORI=OTOB:FORJ=OTOB: POKET7770+1#2HJ#44,1 184 POKEB28+BZ#3,72: BZ=BZ+1: IFBZ=STHENBZ=O <39> 
ıNEXTI,T <05> | 185 RETURN <71> 
64 FORI=1T090+1M=4) #20 <&5> 200 IFU=0THENU=»1 18070210 <192> 
65 Y=INT{RNDt1) #19) 2.J=03 IFY/2=INT (V/2) THENJ=1 <38> | 205 U=0 <22> 
65 X=J+2#INT(RND(1)#t10-7) +3) 3 IFK>1BTHENGS <237> | 210 P=PEEK (7580+X+RX+22# 1 Y+RY) ) = IFP<STHENRETURN <138? 
67 POKE7747+X+Y#22 ,2:NEXTI <50> 215 POKE7&B0+X+22#Y 16:2 X=X+RX: Y=Y+RY:POKEO,XıPOK 
70 FORI=OTOAL-1:POKEBS4+I"6 , INT (RND(1)*Z+1) : POKE Ei ,Ys IFP<>1STHENRETURN <138> 
855+1#&, INT (RND (1) #20+1) <24> | 21& POKE7680+X+22#Y,Z(V,U)15Y87524: FORT=12810245 
72 X=t18#=INT{RND(1) #2) +1: V=INT{RND(1)#18+3) 1 IFP STIEP (256-T)/128 <218> 
EEK (7600 +X422#Y) <>1L5THEN72 <137> | 217 POKE36874,,T3NEXTT:PDKES6874 „Or LE=LE+1: IFLE>B 
74 POKE7680+X+22"Y ‚A1POKEBS6+1 #6, X: POKEBS7+1@6,Y <178> | THENLE=8 <165> 
75 POKEBSB+I#6, (7680+X+22#Y) ANDZSS51POKEBSIHI#G, ( 220 POKE7725-LE,8:RETURN <109> 
T7T&BO+X+22#Y) /2561NEXTLISYS7432 <34> S00 P=1NT{RND(1)#17):J=01 IFP/Z=1NT (P/2) THENI=1 <125> 
7& FORI=9T011:FORJI=10T012: IFPEEK 17580+1 +22#.1)=2T 502 0=J+2#1NT{RND(1)#19-9)+J) 10=77474+04+P#22 <113> 
HENPOKE7680+14+22#J,1& <60> | 304 IFPEEK (0) =ZTHENPOKER, 165: RETURN <112> 
77 NEXTI,I <11> | 306 IFPEEK(@)=16THENPOKEQ,Z2rRETURN <B&> 
78 POKE7932,8:X=10: Y=11:POKEO,X:POKE1,V:8Y87524 <96> | 508 RETURN <195> 
80 FORI=1T08:POKE7723-1 „161 IFLE>=ITHENPOKE7723-1 400 POKE34878 , 239: FORI=1T011:19Y94593: FORT-1T0150 
‚8 <170> | :NEXTT, I: FORT=1T05 <12> 
85 NEXT <215> | 405 FORI=24ST01408TEP-T:POKES5875, I:NEXTI,T3FORT 
90 FORI=928T10845:1 POKEI „O:NEXT4FORI=160T1038STEP-1 =ATOLSTEP- .S:FORI=245T0160STEP-T <111> 
:POKES6865, I: NEXTI <217> | 408 POKE36875, 1: NEXTI, TıPOKES6875,0:50=5C+ AL-PE 
93 IFPEEK(197)<>47THENIS <5> eg gerne IFLE<OTHEN4 SS 
2 n 10 
er ee a Hr ge a: erg (HOME DOHN RZ <182> | 450 POKES4878,, 239: FORT=1T05: FORI=200102455TEPT:ıP 
102 IFM=3ANDW=OTHENW= 1: POKE36878,15:G010105 <23> | OKES6B75,1:NEXTI,T <56> 
105 IFM=STHENW=O1POKES6B78, 239 <199> | 455 FORT=ATOLSTEP-.S:FORI=200702458STEPT:POKES&B?7 
104 IFM=ZTHENGUSUB300: B0T0105 <90> | &,1:NEXTI,TıPOKES36875,0 <53> 
105 8Y84593: P=PEEK (7680+X+22#Y) ı IFP<7ORP>1STHENG 460 SC=SC+(AL-PEEK (6) ) #50+Bı FORT=1T0500: NEXTT: BU 
00 <146> | 1040 <47> 
105 V=0:RX=0:RY=0: J=PEEK (5) : IFM=4OR (JANDS2) =OTHE 500 DATA191,198,204,207,213,217,221,223,227 <130> 
NGOSUBIBO <50> 505 DATA2,24,48,47,70,68,44,45 <119> 
107 IF (JANDB) «OTHENRY=1+V=1:605UB200: 6070111 ENDE DES LISTINGS 


<29> 





C 16/116: Note Screen 


Das Mischinenprogramm "NOTE-SCREEN” 
stellt cinen zweiten Bildschirm zur Verfü- 
gune, den man als Notizblock bemurzen 

ann. Dies ist besonders nützlich bei der Pro- 
grammentwicklung. Aut dem zweiten Bild- 
Schirm kann man sich Notizen der angewand- 
ten Variablen und deren Funktionen machen. 


eingelesen und zugleich überpr 


die Datas korrekt, wird gefr 


lich die "Remarks” weglassen. Nun zur Funk- 
t ibung. Nach dem Starten des 
"Laders” werden die Datas in den Speicher 
sich ein Feluler in den Datas, so wird sofort an- 
gezeigt, in welcher Zeile er sich befindet. Sind 
‚ob man ein 


eingeben und die Routine mit "SYS 1525" 
starten. Nach dem gleichzeitigen drücken der 
"CTRL"-und "COMMODORE"-Taste wird 
auf den zweiten Bildschirm umgeschaltet. 
Wird zum ersten mal umgeschaltet, ist der 
Bildschirm wahrscheinlich mit Zeichen ge- 
füllt und ist durch Drücken von SHIFT/ 
CLEAR HOME zu löschen. Unten rechts in 
der Bildecke befindet sich ein invertiertes Zei- 
chen das anzeigt, daß der "NOTE-SCREEN” 
eingeschaltet ist. Jetzr kann man sich beliebige 


verschiedenen Bildschirmen arbeiten. Beim 
Abspeichern ist jedoch darauf zu achten, daß 
sich mit einer schon einmal benutzten File 
Ne. der Bildchirm nicht abspeichern läße. La- 
den kann man den Bildschirm wieder, inder 
man den "NOTESCREEN" einschalter, 
links oben die Kennzahl eingibt und dann 
Weichzeitig die "CTRL“- und die "L'"Taste 
drückt. Befindet man sich im "NOTE- 
SCREEN” ist das Scrollen mur im Dirckt- 
Modus abgeschaltet. Läßt man ein Programm. 


Da meistens ein Progamm nicht am gleichen  Kassetten- oder Disketten-Laufwerk benutze. Notizen machen und mit gleichzeitigem Listen oder lädt man ein Directory, so hat der 
La ramer wird, kann man sich die Notizen Danach wird in den Monitor gespru Drücken von "CTRL” und "SHIFT" wird Biköschirm die normale Scroll-Funktion. Um 
au 


Diskette oder Kassette abspeichern und 
sie bei der Weiterbearbeitung des Programms 
wiexler laden. Die angewandte Tastenkambi- 
nation und ihre Bedeutung befinden sich am 
Anfangdes Basicladerlistings. Für Maschinen- 


gen und 
der Text zur Abspeicherung der Maschinen- 
routine auf den Bildschirm ‚pepeben. 
mn ver die RLORNE aste = 
u Maschinenprogramm wird gespei- 
here. Danach ist "Xu drücken, um zurück 


jetz ist 
rücken 


sprache-Freaks, oder die es werden wollen, 
befindet sich ab Zeile 309 ein ausführlich do- 


ins Basic zu kommen. Die Routine kann nun 


der Biktschirm in den geschützten RAM- 
Speicher kopiert und zuriick zum normalen 
Bildschirm gesprungen. Will man den Bild- 
schiem speichern, in der "NOTE-SCREEN" 
einzuschalten, in die obere linke Ecke des 
Bildschirms eine Zahl zwischen O und 9 zu 


einen Symax Error zu vermeiden, hat die 
"RETURN" Taste ihre Funktion als Ein- 
gabe-Taste verloren. Sie kann nur als Zeilen- 
sprung benurzt werden. Befinder sich der 
"CURSOR” in der unteren linken Ecke auf 
dem invertierren Zeichen, so behalten nur 








zu jeder Zeit mit der Ei von "Monitor" schreiben und dann gleichzeitig die "CTRL”- noch die Tasten ”CURSOR UP” und "CUR- 
kumentiertes Assemblerlisting. Beim Abtip- und "L"N.-SCREEN/SYS 1525", 8" (beiKas- und die "S”-Taste drücken. Da die Zahl as SOR LEFT” ihre Funktion. Alle anderen 
pen des Basicladers kanrı man selbstversänd- sette ... 1) geladen werden. Nun doch "X"  "FILENAME" benutzt wird, kann man mit Eingaben werden ignoriert. 
C-1& LISTING + CHECKSUMMEN (DC v1.0) 79 : <133> 
80 REM N.SCREEN DN = 'CTRL'+ "COMMODORE ” <20> 
r 85 REM <220> 
10 REM „nn. <91> 90 REM N.SECREEN DFF = *ETRL'+"SHIFT* <82> 
15 REM "ISPACEITY" «254> | 75 REM . <238> 
20 REM "ISPACEI#TSPACEINOTE-SCREENTSPACEIWTSPAC 100 REM SAVE SCREEN = <185> 
E)" <7> 105 REM N.SCREEN DN + 'CTRL' + 5’ <195> 
253 REM "LSPACEIFI”" <244> | 110 REM <253> 
30 REM "ISPACE2} (BASICLADER)I (SPACEZI" <3> 115 REM LOAD SCREFN = <137> 
35 REM "tSPACEITI" <254> | 120 REM N.SCREEN ON + 'CIRL' + 'L° <63> 
40 REM "XSPACEZYSTARTADRESBETSPACEZI" <ı71> | 125 REM <12> 
45 REM "ISPACESISVS1S2SLSPACESI" <122> | 130 SCNELR=CHARI „11,6, " CELASHONIFBITTELSPACEIWART 
SO REM "ISPACEITI" <13> ENISPACEI "LFLASHOFFF" <156> 
55 REM "tSPACESIWRITTENTSPACEIBYE 4," <208> | 135 FÜRK=1525T01765: READD:CHAR1 ‚11,10, "ADRESSEIS 
60 REM "ISPACEIGUNTERTSPACESIMASSARLSPACEI" <31> | PACEI:"TPRINTK <51> 
65 REM "ESPACEITI" <28> 140 CHAR1,11,12,"DATALSP. Hr iSPACE2I"sPRI 1 
TO REM Mimi <151> | NG"#4Mn";D hy y SPACE SPACE2: täcui <224> 


Gompute mib 





— 


na Su. 


uns” 





programme 


145 7=7+1:5=5+D: POKEK ‚Di GS=6BS+D 

150 IFZ=12THENREADCH: EOTO160 

158 NEXTKı IFBS< >2751 4THEN16S: ELSEL17O 

160 IFS=CHTHENS=O4Z=0+NEXTK 

165 SENELR=CHARI ,7,10,"" PRINT" {RVSQNIDATALSPAC 
IFEHLERLSPACE} INESPACEI ZEILE"PEEK (63) +PEEK (64) = 
SA:END 

170 SENELR=CHAR1 , 10,10," (RVSONFDATASTSPACEI INISP 
ACEIORDNUNG{RVSOFFI " 

175 CHAR1,B,15,"{RVSON FLASHONIKARVSOEF FLASHOFE 
IASSETTEXSPACEI/TSPACE RVSON FLASHONIDIRVSOFEF EL 
ASHOFF) ISKETTE {SPACE} ?" : BETKEYBS IFGS="K"THENG=1 
:GDTD188 

180 IFGER"D"THENG=B+ELSEGOTO175 

195 SCNELRECHARI ,5,10,"BITTEISPACE RYSONIRETURNG 
RVSOFF. SPACEFTASTE {SPALEI DRUIECKEN" 

190 CHAR1 „0420, ""3PRINT"S"ICHRS (34) 3 "N. SCREEN/SY 
81525", CHRE (34) 4" „6, 0SFS ,O6EB" 

193 POKESI72 „6+48: POKE1746 „8:5Y81525: CHAR1,0,15, 
"":MONTTOR 

200 DATA120,167,89,133,56,160,10,162,6,140,20,3, 
1038 

205 DATA142,71,3,169,0,133,229,88,96,165,229,20B 
‚1483 

210 DATA29,169,6,205,67,5,208,19,230,229,162,12, 
1341 

215 DATA169,60,32,78,6, 160,108, 162,6,140,69,5,97 
2 

2720 DATA1A2 
146 

225 DATA201 ,5,208,22,198,229,160,122,162,219,140 
649,1735 

230 DATAS,142,70,5,162,60,169,12,32,79,6,32,773 
235 DATA139,216,76,14,206,160,0,132,3,132,5,134, 
1217 

240 DATNA,132,6,162,4,177,5,145,3,200,208,249,12 
9% 

245 DATA230,4,230,6,.202,208,242,96,173,67,5,201, 
1654 

259 DATA4 208, 10,145,1978,201 ,13,240,55,201,42,24 
0,1577 

285 DATA71,160,64,185,205,201,24,16,12,168, 198,2 
01,1482 

260 DATA1,208,3,141,67,5,76,122,219,165,198,201, 
1406 

265 DATA1,240,4,201 ,40,208,2,132,198,166,202,224 
‚1618 

270 DATA37,48,10,201,48,240,6,201,43,240,2,132,1 
210 

273 DATA198,76,122,219,32,201,6,169,0,133,230,16 
9,1555 

280 DATA12,133,231,1549,230,1542,1,160,154,754,215,2 
55, 1641 

289 DATAS2,201 ,6,1659,0,76,213,255,173,0,12,141,1 
778 


290 DATA2I0,6,157,2,162,8,160,1 
380 ; 
295 DATA1,162,230,160,6,32,189,255,160,0,132,239 
„1566,96 

300 REM 

305 REM #*® NEUER IRD-VEKTOR EINSTELLEN ##* 

310 REM 





»70,5,76,14,206, 142,231 ,15,173,67,5,1 


ı52,186,255, 169,1 


315 REM "OSFSLSPACEZISEITSPACEBI INTERRUPTLSPAC 
E}SFERREN 
320 REM  "OSFALSPACEZILDALSPACEIHSSBESPACEZIHIG 


H-BYTE(SPACE3DES(SPACE 3 BASICSFEICHER-ENDE {SPACEI 
HOLEN 

325 REM _"OSFBTSPACEZISTALSPACEIFSBISPACELIUNDT 
SPACEISETZEN 

3350 REM  "OBFALSPACE2ZILDYLSPALEIBSORTSPACEZILOW 
-BYTE (SPAGE}DES<SPAGE} NEUEN (SPACE? IRG-VEKTORS{SP 
ACEIHOLEN 

335 REM "OBFETSPACEZILDXXSPACEIRSOGLSPALCEIIENT 
SPRECHENDEStSPACEIHIGH-RYTE {SPACEIHOLEN 

240 REM "OSFEISPACE2ISTYLSPACEIFOSIALSPACEZILO 
W-BYTECSPACEILINDISPACE). . . 

349 REM "O&01XSPACEZISTKISPACEISOSISTSPACEZ. - 
„SPACEIENTSPRECHENDES {SPACEIHIGH-BVTESPALEISET 


ZEN 

350 REM  "O604LSPACEZILDATSPACENHSOOSPACEZIMER 
KERISPACEI ... 

355 REM  "OA0OGCSPACEZISTALSPACEISESESPACERI . .. X 





SPACE} ZURUECKSETZEN 
360 REM "OSOBTSPACEZICLIXSPACEBY IRDXSPACEIWIED 
ER{SPACEIFREIGEBEN 
365 REM "06091SPACE2IRTSTSPACESI ZURUECK (SPACE 


*123> 
<181> 
«174> 
<Ab> 
<aa> 


<96> 


<219> 
“31> 


<145> 
“26> 
“85 
<199> 
“85> 
<147> 
<A9> 
«122> 


<188> 
<154> 


<225> 
<29> 
<a) 
<180> 
<130> 
*39> 
<70) 
<200> 
<217> 
<41> 


<bA> 


<b> 
<B3> 
<188> 
<95> 
<198> 


<47> 


<115> 


<222> 


<39 
<88> 
<248> 


<118> 
<z16> 
<169> 


<111> 


ZUMLSPACEIBASIE 

-370 REM 

375 REM ##* IRD-ROUTINE Hr 

380 REM 

305 REM  "OBOALSPACEZILDATSPACEISESTSPACE4}MERK 
ERTSPALCEIHOLEN 

370 REM  "O60CTSPALE2IBNELSPACEIFOGZBISPACEZIME 
RKER{ GESETZT , (SPACE? DANN<SPAGEI SPRUNG {SPAC 


E) ZUR (SPACEIPABE-ROUT INE 

395 REM  "OS0ETSPACEZILDATSPACEIHFORTSPACEII 'CD 
NTRAL. "+ COMMODORE’ SPACE}... 

400 REM  "O0610{SPACE2IENPLSPACEISOSASTSPACED: » 
. LSPACEI TASTEXSPACE }GEDRUECKTL >? 

405 REM "O&13{SPACE2}BNELSPACEIFOAZBISPACEZINE 
IN, £SPALEIDANNISPACEI SPRUNG LSPACE} ZURLSPÄCE)I IRU- 
ROUTINEXSPAUE>D. {SPACEIBETRIEBSYSTENS 


410 REM "O&1S1SPACE2} IND TSPACEIFESTSPACE4I MERK 
ERISPACEISETZEN 
415 REM  "O617LSPAGEZILDKLSPACEIRSOCLSPAGESIHIG 


H-BYTESPAGEIDERSPACEIENPFANGSADRESSE (SPACEIHOL 
ENtSPACE) (SCREEN) 

420 REM "O619XSPACEZILDALSPACEINSSCLSPACESIHIG 
H-BYTE {SPACE} DER {SPAGEI SENDEADRESSETSPAGEYHOLENt 
SPACE) (RAM) 

425 REM  "O61BLSPACE2IISRISPACEIFOSIECSPACE2I ZU 
R{SPACEIKUPIERROUT INE 

A430 REM  "OSIELSPATEZILDYSPACEIEESFLSPACEZILOW 
-BYTE SPACE YDESTSPACE }NEUEN(SPACEI TASTATUR-VEKTO 
RECSPACEIHOLEN 

435 REM  "OG2OCSPACEZILDXCSPACEIMSOALSPACEIIENT 
SPRECHENDES (SPACE }HIEH-BYTETSPACEIHOLEN 

AAO REM NOBZZISPACEZYSTY{SPATCEISOSAALSPACEZYLO 
W-BYTEISPACEIUNDESPACH) . - » 

445 REM "O&2BISPALE2ISTXLSPACEISOS4GLSPACENI.. 
. TSPACEIENTSPRECHENDES{SPAGEIHIGH-BYTEISPACEISET 
ZEN 

450 REM  "O62BLSPACE 

R{SPACE} IRD-ROUTINE TRPANDILERTEEAGENDETRTERBTETE 
“5 


455 REM 

AGO REM #4 PABE-ROLUTINE #4 

465 REM 

470 REM "O&ZBLSPACEZISTX SPACE) SOFET ISPACEZIZE 


ICHENTSPACEIUNTENCSPACEIRECHTSCSPACEI INLSPACEIBI 
LDSCHIRMLSPAGEISCHREIBEN 

475 REM  "OBZEISPAGEZILDATSPACEISOSISTSPACEZI 'C 
ONTROL*+"SHIFT'{SPACEI...» 

480 REM  "O431CSPALEZIEMPLSPACEIHFOSTSPALET) ı u. 
tSPACEI TASTEXSPACEIGEDRUECKT? 

485 REM "OSSSCSPAGEZIBNE TSPACEISOBABLSPACEZINE 
IN, TSPACE? DANNTSPACE> ZUR{SPACE) IRG-ROUTINETSPACE 
IDERLSPACKIDETRIEBSYSTENS 

490 REM "O63SSCSPALE2IDECLSPACEIFESTSPACEAIMERK 
ERCSPAGEIRUECKSETZEN 


495 REM "O6371SPACEZILDY (SPACEIRSTATSPACEZILON 
-BYTE SPACE} DES{SPACE) NORM. (SPACE) TASTATUR-VEKTO 


RSTSPALCEIHOLEN 
500 REM "06391 LDXSPACEIHSDRSPACEI>ENT 
SPRECHENDES (SPAGEIHIGH-BYTE{SPACEIHÜLEN 

5058 REM _ "O6SBLSPACEZISTYLSPALEISOSASLSPACE2N.O 


W-BYTEISPALCEIUND{SPACEI. .» 


510 REM "O&SEISPACE2ISTX{SPACEISOSAALSPACEZ.. 
» KSPACEFENTSPRECHENDESCSPACEIHIGH-BYTELSPAGEISET 
ZEN 

SiS REM "061 LDX{SPACEINSSCTSPACEZIHIB 
H-BYTE{SPACEIDER (SPACEIEMPFANGSADRESSE {SPACEIHOL 
ENTSPACE} (RAM) 

520 REM "OG431SPACEZILDATLSPACEIMSOLLSPACETIHIG 
H-BYTEtSPACE)IDER SPACE} SENDEADRESSE LSPACEIHOLENT 
SPACE} (SCREEN) 

525 REM "OANSTSPACEZIISRISPACEISOSNELSPACEZIZU 
RISPACEIKOPTER-ROUTINE 





530 REM "OSABLSPALE2IISRISPACEISDBBRLSPACEZ) ZU 
XSPACEISCNELR 
535 REM "OWABCSPACEZIIMPISPACEISCEOE TSPACE2I ZU 


RtSPACE)I IRG-ROLUTINE (SPACEIDES{SPACE}BETREIBSYSTE 
ns 

540 REM 

545 REM ##* KOPIER-ROUTINE ###* 

Ss0 REM 
353 REM  "O&G4ELSPACEZN.DYV CSPAGEIRSOOTSPACEZHLON 
-BYTE {SPACE IDES{SPACEYSENDE- (SPALEIUNDSPALEIEMP 
FANGSADRESSE {SPACEIHOLEN 

540 REM "O650{SPACEZISTYISPACEISOSTSPACEIHLON- 
BYTEtSPACEI INSCSPACE)EMPFANGB- (SPALEIUND SPACE), . 


Gompute mit 


<40> 
<2> 
<106> 
<12> 


<183> 


<13> 
<124>3 
<172> 


<158> 


<a> 


“244 > 


<32> 
<61> 


<244> 
<234> 
<218> 


<91> 


<240> 
<87> 
<47> 
<97> 
<1855> 
<80> 


“186? 


<a2> 


<198> 


<227> 
<92> 
“152 


<1> 


<i64> 


<115> 


. <207> 


<137> 


«i1aa> 
<173> 
<98> 

<195> 


<137> 


<78> 








ormarme.ir 


565 REM  "OSB2TSPACEZISTYISPACEIFOSCSPACEN ut 
SPACE>SENDERE®. { SETZEN 
570 REM "0654 1SPACEZISTXTSPACEIFONESPACESIHIGH 


-BYTE SPACE) INStSPACEIEMPFANGREG. (SPACE) SETZEN 
575 REM "O6S61SPACEZISTATSPACEIFORTSPACESIHIGH 
-BYTEISPACE} INS{SPACE )SENDEREG. (SPACE}BETZEN 

SEO REM "O6SBTSPAGE2ZILDX LSPACEI#SO4 LSPACESI TAE 
HLER{SPACEILADEN ; 
SBS5 REM "O6SATSPACEZILDATSPACE) (405) „VLSPACEIZ 
EICHEN (SPACE }VONTSPACEIBENDEADRESSE (SPACE) IN{SPA 


VOBSCKSPACE2ISTATSPACE) (603) „VISPACEI. 





CE}. 
590 REM 
. » [SPACEHEMPFANGBSADRESSE {SPACE KOPIEREN 
"O8SESPACE2) INY {SPACESILOW-BYTE SPACE 
IDER{SPACEIREBISTERTSPACEI+1 

600 REM "OGSFISPACEZIBNE SPACE} FOSSALSPACEZIUN 
BLEICHTSPACEINULLP{SPACEIDANNTSPACEINAECHSTESTSP 
ACEI ZEICHEN{SPACEIKOPIEREN 

605 REM  "O6461f + INCLSPACEIFONLSPACEFIHIGH 
-BYTEtSPACEIDESTSPACE FENPFANGS-{SPACEIUNDISPACEI 


610 REM "O66SCSPACEZIINCLSPACEISOBLSPACEN „u. 
SPACE) SENDERER, { ERHDEHEN 
615 REM "O66SLSPACE2IDEX LSPACESIFZAEHLERTSPACEI 


-i 
620 REM  "O&6G6TSPACE2IBNE (SPACE) POBSALSPACEZIUN 
GLEICHTSPACEINULL?TSPACEIDANNTSPACEINAECHSTES{SR 
ACE) ZEICHEN SPACEIKOPIEREN 


625 REM  "O66BLSPACEZIRTSCSPALESIRUECKSPRUNG 
630 REM 

633 REM #** TASTATUR-ROUTINE 

640 REN 

6945 REM NOBHPLSPACERILDATSPACEISOSASTSPACEZ} 'C 


ONTROL’-TASTEISPACEI. . . 

&50 REM  "OSGELSPACEZICHPISPACEIHSOALSPACEI? ... 
tSPACEIGEDRUECKT? 

65 REM "OGGETSPACEZIBNE LSPACEI#OBTATSPACEZINE 
IN, (SPACEFDANNTSPACEI "3° CSPACEYUNDTSPACEI 'L ’ SPA 
GEI TASTENABFRAGE {SPACE MIEBERSPRINGEN 

660 REM "0670XSPACE2ILDATSPACEISUSTSPACEN '8'C 
SPAGEITASTELSPACE}. . . 


655 REM "OBTZISPATEPZICMP{SPACEIESODESPACES). .. 
tSPACEFGEDRUECKT? 
670 REM "087% BEBRISPALCEISORADTSPACEZIIA 


„ [SPACEIDANN SPACE) ZURCSPACEISAVE-ROUTINE 

670 REM "O&7ELSPALEZICHP CSPACEIESZALSPACEII "L" 
tSPACEI TASTETSPACEIGEDRUECKT? 

680 REM "O678{SPACE2IBENTSPACEISOSCHSPACEZIIA 
» EPACEIDANNLSPACEI ZURTSPACEILDAD-ROUTINE 

695 REM NOSTALSPAGEZIHL.DYLSPACEIMSAOTSPACESILDE 
SCH-KODEXSPACEIHOLEN 

690 REM "OBFOLSPACEZILDATSPACEISEDTSPACESICURS 
ORISPACEI INTSPACEILETZTER(SPACE). .. 


675 REM NOBTEISPACEZITCMPISPACEIBSIBLSPACEZ?. .. 
tSPACEIZEILE? 
700 REM "OGBOLSPACE2IBPLISPACEISOSBE(SPACEZIIA 


„DANNLSPACE} ZUCSPACEI "RETURN ” CSPACEIU. SPACE) 'CU 
RSOR SPACE) DOWN" £SPACEISPERREN 

705 REM "O6B2LSPACE2ILDATSPALEISCHTSPACEA! "RET 
URN’ FSPACEITASTEISPACEI --» 

710 REM "O6BALSPACEZICHPLSPACEIHSOLTSPACESI nn. 


XSPACEIGEDRUECKT? 
715 REM "0686 1SPACE2}BNE{SPACEIFOSBBISPACEZINE 


IN, (SPACEIDANNTSPACEFSPRUNG SPACE ZURtSPACEITAST 
ATUR-ROUTINECSPACEID. SPACE) BETRIEBS. 

720 REM "O4BBLSPACEZISTALSPACEI FOS43CSPACEZI "8 
HIFT '-KODE {SPACEIERZEUBEN 

725 REM  "O6BBCSPACEZIIMP (SPACE) #DB7ACSPACEZ) ZU 


RISPACE)Y TASTATUR-ROUTINE (SPACEIDEStSPACEI BETRIEB 


SYSTENS 
730 REM "OABETSPACEZILDALSPACEISUSTSPACEL 'RET 


URN’ {SPACEITASTEISPACEI. .. 


733 REM  "O&90LSPADEZICMPLSPACEIHFONTSPACEN u... 
tSPACEYGEDRUECKT? 

740 REM "O6F2XSPACE2IBEOLSPACEI SOBIBTSPACEZIIA 
„ SPACEIDANNTSPACE SPRUNG SPACE) ZURCSPACE)KODE-L 
DESCHLUNG 

748 REN 


"OBFALSPACEZICHP SPACE) HFZBTSPACEI? "CU 
RSOR SPACE) DOWN" SPACE) GEDRUECKT? 

750 REM "0676 SPACE2)BNESPACEISOGTALSPAGEZINE 
IN, CSPACEIDANN{ SPACE) SPRUNGCSPAGE)I ZUR SPACEIABFR 
AGETSPACEIDERTSPACECURSORCSPACEISPALTE 

755 REM "O69B1SPACEZISTYCSPACE}SCKLSPACESIGEDR 
UECKTESPACEITASTET LOESEHEN 

760 REM "ORFALSPACEZILDXTSPACEISCATSPACENHCURS 
ORTSPACEIINTSPACEILETZTERISPÄCEI  «» 


<> 
<177> 
<199> 


<111> 


<182> 
<251> 
<A0> 
<216> 
<7> 
«19> 
<17> 
<126> 


<243> 


<a0> 


<175> 


<90> 
<131> 


<179> 
<181> 


<70> 


<1&0> 
<212> 
<190> 





programme 


765 REM "OBICKSPACEZICPKTSPACEIHS2TISPACEII .» . 
tSPACEISPALTE? - 
770 REM "OSFEILSPACE2YBMITSPACEIFOAAALSPACEZINE 


IN „DANNCSPACE}I SPRUNG SPACE) 2. TASTATUR-ROUTINEtSP 
ACEYD. SPACE) BETRIERSYST, 

775 REM 4 "O&ROLSPACEZICHFLSPACEIHSSOLSPACETI "CU 
RSORE LEFT " (SPACEIGEDRUECKT? 

780 REN "O&AZTSPALE2IBERTSPACE) FOGAALSPALE2IIA 
„ LSPACEIDANN{SPACEISPRUNG SPACE) Z. LSPACEITAST.-R 
»SPACE>D. SPACE) BETRIEBS. 

785 REM "OAMALSPACEZICHPESPALEIHS2BISPACEZI "CU 
RSORTSPACEIUP ' CSPACEIGEDRLECKT? 

790 REM "O&N&LSPACE2IBEDTSPACEISOBAALSPACEZI JA 
‚ [SPACE?DANN{SPACEISPRUNGSPACEIZ. LSPACEITAST.-R 
. (SPACEID. {SPACEIBETRIERBB. 

795 REM  "OSNBCSPACE2ISTYISPACEISCHTSPACELIGEDR 
VECKTESPACEI TASTE {SPACEHLOESCHEN 

800 REM "OBAATSPALEZIIMFLSPACEI SDBZALSPACEZI ZU 
RISPACEITASTATUR-ROUT INETSPACEIDESTSPACEIBETRIEB 
SYSTEMS 


805 REM 

B10 REM "## SAVE-ROUTINE wen 

815 REM 

820 REM "OSADTSPACEZIISRISPACEISOSCHLSPALEZ}ZU 


R{SPACEISETLFS- SPACE HUND SPACEFSETNAM-ROUT INE 
825 REM "O6BOLSPACEZILDALSPACEIHFOOTSPACEIILON 
-BYTE SPACE) DER{SPAGEFANFANGSADRESSE SPACE} HOLEN 
XSPACE}..» 

830 REM "O6B2TSPACEZISTALSPACEISEHTSPACEL ...C 
SPACEFUNDSPACEI SETZEN 

835 REM "O&B4SPACEZILDATSPACEIHFOCTSPACEZIHIG 
H-BYTE {SPAGEIDER SPACE) ANFANGSADRESSE SPACEIHOLE 
NISPACE}. ». 

840 REN "OGBASPACEZISTATSPACEISETLSPACEN} . 
SPACE YUND{SPACEISETZEN 

845 REM  "O6BBTSPACEZILDALSPACEINSEALSPACEII ZEI 
GER {SPACEI DER (SPACE >ANFANGSADRESSE CSPACEI HOLEN 
850 REM "OABALSPACE2ILDX SPACEIHSOT LSPACEIILOW 
-BYTE {SPACE} DERTSPACE I ENDADRESSE LSPACEI HOLEN 

855 REM  "O&BEISPACERILDYTSPACEINFLOLSPACEZIENT 
SPRECHENDES{SPACEIHIGH-BYTESPACEIHÜLEN 


860 REM _ "OSBEISPACEZ)I IMPISPACEISFFORTSPACEZYI ZU 
RISPACEISAVE-ROUTINE {SPACEIDES{SPACEIBETRIEBSYST 
EMS 

8645 REM 

870 REM ### LOAD-ROUTINE ##* 

073 REM 

B90 REM  "OABILSPACERIISRISPACEIFORCHLSPACEZY ZU 


RISPACEISETLFS-SPACEIUND {SPACE} SETNAM-ROUT INE 
OHG REM "OBCHLSPACEZILDACSPACEINFOOLSPACEZIFLA 
GeSPALEIFUERLSPACEILONDT YHOLEN 

#70 REM  "O6C6LSPACE2I IMP (SPACE) #FFDSCSPACEZI ZU 
R{SPACEHLOAD-ROUTINE (SPACE IDESCSPACEIBETRIEBSYST 
EMS 


895 REN 

700 REM #** BETLFS- U. SETNAN-ROUTINE + 

905 REM 

910 REM _ "OGEPLSPACEZILDATSPAGEIFOCOOLSPACEZIFL 


LENNME (SPACE) AUSTSPACEI BILDGCHIRMISPACEIECKEISPA 
GEIHOLEN{SPACEI =». 





915 REM _ "OSCELSPACEZISTALSPAGEISOBESTSPACEZI. « 
„SPACEIUND{SPACEISETZEN 

920 REM _ "OACFTSPACEZILDATSPACEINEOI LSPACEZIFIL 
ENUNMERSPACE} HOLEN 3 

925 REM "O&DI ISPACEZILDX{SPACEIHSOBLSPACEIIBER 
AETEADRESSESPAGE HOLEN 

930 REM "OBDSLSPACEZILDV {SPACEIHSOLTSPACEZIBER 


UNDAERADRESSE (SPACE) HÜLEN 
735 REM "OBDSLSPACEZIISRISPACEISFFBATSPACEZIFI 
LEPARAMETER{SPACEISETZEN 

9740 REM "OADBESPACE2ILDALSPACEIHSON LSPAGEIILAE 
NGE {SPACEIDESTSPACEIF TLENAMENS 


945 REM  "O6DNISPAGCEZILDK TSPAGEIHFESTSPACEZILOM 
-BYTE{SPAGE}DERTSPACE)IF ILENAMENADRESSE TSPACEIHOL 
EN 

950 REM  "OADCLSPACE2ZILDYTSPACEIWFORLSPACEIIENT 


SPRECHENDESCSPACEIHIGH-BYTESPACEIHOLEN 

955 REM "OADE(SPACEZIISRISPACE)SFFEDISPACEZIFI 

LENAMENtSPACE}SETZEN 

960 REM  "OBEILSPACE2ILDV ISPACEIRFOOLSPALEIITAS 

TATURPUFFER 

965 REM  "OGESTSPACE2ISTYCSPACEIFEFTSPACEL ent 
CEILDESCHEN 

” Kan "O635{SPALCEZIRTSTSPACESHRUECKSPRUNG 
ENDE DES LISTINGS 


Computes mik 


<52> 


<93> 
<126> 


<48> 
<60> 


<a2> 
<37> 
<5> 
<185> 
«7? 
<193> 


<10> 


<251> 


<35> 


<B88> 

<102> 
<90> 
<114> 
<12> 

<122> 
<243> 
<217> 
<253> 


<222> 


<i83> 


<157> 
<17> 

<223> 
“277 

<204> 
<149> 
<51> 

<179> 
<218> 
<119> 


<188> 


<6B> 

<198> 
<204> 
<197> 


<56b> 
<17> 








14 


‚programme 





C 16/116: 


Hier handelt es sich um ein spannendes Boxspiel. 
Hervorragende Programmierung in Maschinen- 
sprache garantiert schnelle Bewegungen und for- 
dert vom Spieler rasches Reagieren. Beide Teile 








Nun können Sie die Programme wieder 








nnt 


einladen und starten. Gespielt wird mit Joystick 


oder Tastatur. 


Nach dem Start können Sie alles weitere aus dem 











werden getrennt abgetippt und gespeichert. Programm heraus erfahren. 

b-1& LISTING + ECHECKSUMMEN (OD V1.0) 580 DATA10,30,70,30,10,30,70,B0 <92> 

590 DATA10,10,30,10,10,70,10,12 <129> 

10 POKES6,47: CLR:COLORO, 1:COLOR4,1 <33> | 400 DATA14,20,14,20,14,40,20,80 <73> 
20 PRINT" BLACK CLEAR DOHNZIMLSO DOHNS}TDOOOLSPA &10 DATA40,80,01,01,01,01,01,01 <30> 
CEYDSFF SPACE) SO00 CDOWN2} X CDOHNZIGOTOAO CHOHE?” <73> | 620 DATAIE,02,20,20, 1E,02,80,40 <113> 
20 FOR1=O0103: POKE1319+1,13:NEXTıPOKE237 ,A:1 END <112> | 630 DATA1IE,02,20,20,1E,02,80,40 <123> 
40 POKESS29B, 198: POKE6S297 , AB: PRINT" CHHITE CLEAR 640 DATAIE,02,20,20,1E,02,40,3E <22> 
a <220> | #50 DATA02,20,20,02,40,3E,02,20 <a0> 
50 RESTDRE70:FORI=14472T014503: READZ$: PDKEI „DEC( 660 DATAIE,02,90,80,80,20,20,40 <184> 
ZE) :NEXT <19> | 870 DATN40,20,40,80,80,20,80,20 <1779 
60 RESTOREILOHFORI=143367014423: READZF:POKEI „DEC 680 DATA20,40,70,20,20,70,80,60 <244? 
tZ#) I NEXT <26> | 690 DATA40,20,60,40,20,60,40,20 <73> 
70 »DATANO,00,Bi1,D4,79,00,32,C8 <141>| 700 DATA60,40,20,60,40,20,60,40 <133> 
80 :DATACO,48,D0,F6,40,A0,00,B1 <80> 710 DATA20,60,40,20,50,80,80,20 <241> 
70 :DATADS,F7,48,32,08,C0,48,D0 <204> | 720 DATA20,80,FF ,00,EA,EA,EA,EA <219> 
100 : DATAF&,50,00,00,00,00,00,00 <250> | 730 PRINT" {BLACK CLEAR DOWN3INEWCDONN3}DLOAD"CHR 
110 DATA79,A2,14,00,38,88,14,03 <105> | #434) "C2"CHRE (54) " (HONEI" <55> 
120 DATABC, 15,03,50,N2,00,86,D1 <205> | 740 POKE1319, 13: POKE1320,134POKE1321 ‚B2: POKE1322 
1350 DATAAZ,14,BE,11,FF,60,66,D0 <172> | „117: POKE1323, 13: POKE239,S:END <«5> 
140 DATAFO,03,4C ,0E,CE,A6,D1,BD <173> ENDE DES LISTINGS 
150 DANTA00,35,8D,0E,FF,BD,00,3& <199> 
140 DATARBD,12,FF ,BD,00,37,85,D0 <214> 
170 DATAE4 ‚D2,F0,05,E5,D1 ,40,0€ <32> 
180 DATACE,A2,00,86,D1,4C,0E,CE <104> 
190 DATA78,A2,0E „AO,CE,BE,14,03 <219> 
200 DATASC, 15,03,58,42,00,8E,11 <161> C-1& LISTINGS + CHECKSUMMEN (DC V1.0) 
210 DATAFF „B4,D1 ,N2,01,96,D0,40 <76> | 10 SY514400:8Y8143361 VOLB <161> 
270 RESTORE230: FORI=1 356910135495: READZ$: POKEI „DE 20 RESTORE3S0:FORI1=12944T0135031:READZ+:POKEI „Zı NEX 
E76) ıNEXT <194> | T <2> 
230 DATAAD,E3,02,FC,02,1E,AD,FC | <a9> | SO DATA20,89,74,89,104,49,252,252 <51> 
240 DATAND,ES,02,FC,02,1E,AD,FC <59> | 40 DATA20,37,181,37,41,12,63,63 <32> 
280 DATA42,24,42,24,42,56,FC,2A <215> | SO DATA105,44,44,44,60,150, 150,150 <202> 
260 DATAI2,1E,2A,02,1E ,E3,60,96 <221> | 40 DATA170,150,182,182,182,182,150,170 <123> 
270 DATAFC,FC,FC,FC,FC,FC,FC,HFC <210> | 70 DATA144,208,16,14,144,208,16,16 <1> 
290 DATAOA,FC,04,54 ‚83, FC,83, FC <193> | BO DATAG,7,444,64,7 4,8 <143> 
290 DATAO4,FC,04,34,85,FC,85,FC <203> | 90 DATA255, 255,255, 255,255, 255, 255,255 <73> 
200 DATA54 ,FC,54 ,AD,CO,FC,CO,ES3 <190> | 100 DATAO,0,0,253,285,0,0,0 <241> 
310 DATAFC,E3,02,FC,02,1E,FC,1E <37> | 110 DATA24,24,24,24,24,24,24,24 <13> 
320 DATAZA,FC,2A,FE,CO,AD,CO,AD <11&> | 120 DATA108,198,177,27,180,30,225,135 <219> 
330 DATAS4,04,93,04,FC,54,C0,E3 <192> | 1350 DATA40,174,170,182,182,150,154,40 <> 
540 DATAO2,2A,02,83,ND,83,FC,83 <ı159> | 140 RESTORE150:FOR1=147901014373: READZS:POKEI „DE 
350 DATAS4,83,54,20,FC,10,02,10 <219> | CtZ$) NEXT <«5> 
350 DATAOZ,ES,FC,02,C0,10,02,C0 <126> | 150 DATA, ya nn 91,05, 18, 17,16, 1N,00,37 , 36, 1, BO un + 
379 DATAO2,FT,C0,10,F3,60,F0,98 <61> | ,45 <238> 
san DATAS4,CO0,FC,00,EA,EA,EA,EA <180> | 160 DATAy san nn 3EHSEH SF, 3F ,15,10,10D,2A,45,44,A9 
390 RESTORE400:FORI"13924T013951:READZ$:POKEI ‚DE vr. Ä 533 
Ct2Z$) NEXT <196> | 170 DATA, yr454773122,20,20,E0,40,00,00,50,20,A0,28 
400 DATAC2,C2,63,03,03,03,02,03 <74> | „0C,04,06,06,08 <128> 
410 DATAC2,C2,C3,03,03,03,02,03 - <a4> 180 DATAysennsnn nn 0516,17, 16, 1A, 0C aan Or an <0> 
420 DATAC3,03,63,03,03,03,03,63 <124> | 170 DATA, ,,4,01,01,01,37,37,3A,3E,BE,BF,55,1D,4+ 
430 DATAC3,ES,C3,03,03,02,63,03 <116> | „„80,n4,14,04 <194> 
440 DATAC3,C3,C3,03,63,03,63,65 <144> | 200 DATA, ,,,,07,07,04,1D,2A,0A,04,08,78,68, 17,8 
450 DATACZ,E3,02,02,602,03,£2,03 <34> | ‚NC,04,06,06,08 <B> 
440 DATAC2,C3,02,62,02,03,62,03 <104> | 210 DATA, sy 444,01 ,05,05,05,06,03,2D,AD,40,80,E0 
470 DATAC2,C3,62,62,02,05,02,02 <90> | ‚80,80, ,C0,C0 <139> 
480 DATACY,02,63,63,03,63,C03,03 <179> | 220 DATA, „Olyy7 73, BE,BF,AF AFP „45,07 ,07 ,0N,85,A5, 
470 DATAC3,C3,03,63,02,02,C2,62 <116> | E4,01,40,40,40,80 <30> 
500 DATAC2,C2,62,02,03,02,02,02 <t11> | 230 DATA, 5134, ,02,02,02,76,77,414 053 O1 sro nun 4 
‚SiO DATAC3,C3,CS,C2,02,02,03,62 <145> | 0 <34> 
S20 DATAC2,02,02,02 ,03,C03,03,£3 <195> | 240 DATAy sr 7 14,58, 5E,58,68,30,DE DA, syn 1 1 705 ‘ 
30 DAIACS,C2,C3;C3,02,03,03,62 <190> | „05 <2535> 
540 DATACH,02,02,03,02,02,03,C2 <173> | 2350 DATA, gay + FA,FC,FC,FC, 54 ,74,74,A8,A4, O1 sy 
550 DATAC2,C2,03,00,EA,EA,EA,EA <170> | ysr <149> 
540 RESTORES70: FORI=14080T014207: READZ#: POKEI ‚DE 260 'DATAy 2 07794420420,20,20,30,10, 30,14, unuu0nu_ 78 
EiZ#) :NEXT:POKEZIO,122 <74> | 2758 DATA,,y4717,14,58,5E,59,68,30,D8,DA, „„,05,05 
570 DATN10,30,70,30,10,30,70,40 <246> | „24,09,80 <42> 


Compute mik 


2890 DATAO2 ,0A,08,08,05,04,04, „FE,FC4FC,FC,54,74, 
FA unaeenn 

290 DATA, y44711429+22,20,20,30,10,30,14,,80,A0,2 
0,30,10,30,14 

300 DATA, 124, 40A,08,14 ,58,5E,59,68,30,D8,DA, ‚40, 
40,40,80,80,80,80 

310 DATAOB,08,05,04,04, „„‚FC,FC,FC,FC,54,79,74,A 
Ayyrıar 90 

520 DATA,„07,07,09,441284,20,650,60, 444 ,80,00,40,C 
0,5045 

330 DATAy any nn 0916,17, 16, 1A,00,37,37 1,580 sur 


' 

340 DATA, syn 177738, BB,BA,SF,19,1D,1D,2A,14,14,90 
04, ,01,01,9D 

330 DATAysyrıH 4 r0A,08,08,08,,06,,04,00,05, Da run nn 


. 

560 DATA,01,01,01,01,,01,09,50,04,F4,44,24,FO,F4 

PULIREREERE) 

370 DATAZB,23,23,20,15, 11,11 ,02,SEJAC,FEySO,FB4F 

4,F4,AB,80,80,80,80,40,40,40, 

590 DATA,02,0A,08,0A,02, ,„01,A0,A8,0A,02,0A,AB,AO 

[LEEREREEE 

370 DATA nanur rennen nenn 

A00 DATA, sun nr TH TR 

AUSLESEN PRRSAUSEREDRSEE NE SU ETSORSEN EN REHORR 
’ 

420 DATAOS,16,17,16,1A,00,36, 36, 4,81,01,09,28,20 

+N5,4,40,40,,40,4 

4350 DATASF „36 „SF „3F ,15,1D0,1D,24,85,24,A1,80, 444 + 

PELEEER 

420 DATAOA, 08, 089,08,0C,04,0C ,05,B0,A0,28,08,00,0 

4, OC, 05 „»rn„..„ 

350 DATAIO, 10. 14,20,20,20,22,2N,14,69,70,69,41,3 

C,7D,7D,04,04,14,08,08,08,88,A8 

A650 DATAy san ı nn vEBAD7 FF 414,70, 70, 7D,Ahyanannnn 

A709 DATAy syn AA AN, 28,28, 30,14, 30, 55 nun 00 70 

480 DATAO1,,,,14,45,41,45,41,95,14,14,55,55,79,D 

6,40,,5,14,51,41,51 

490 DATAA7 447,17 ,07,07,05,05,01,55,60,60,60,55,D 

6,06,77,91,91,94,90,70,50,50,40 

500 DATAOlys21r1,014,79,79,55, 55, 14,14,55,55,40,, 

DEREN 

510 DATA, ,02,,,,152,50,94,04,94,A4 50, DE4FC, 4444 


nt 

520 DATAS1,1A,6A, 4444, BEJ,BE,FC,FC,54,74, 74, ABy yy 
vr 

5509 ; DATAO2 ,0A,28,50,10,30,30,50,88,08,08,0B,01,0 
3, 03 ‚OSgansınyr 

540 DATA, an 02, 4401490, 974 504,94 ,AA, SO anne 
550 DATA, 14,024 1A,14,10,DC,DC,AC,BC,BE,FE,55, 74, 


[KERERLTD 40, 40 

560 DATA, ‚2A,SA, 10,30,30,50,74,A8,A0,AO, 20,20,27 
uı91r4,D0,D0,1 

570 DATAO1 ,02,0B,02,02,,03,03,40,50,50,50,90 
78, 7Ayyyaunan 

580 DATAS2,5A,18,43,01,01,01,02, B2,F2, Fi, F1,51,D 
0,DO,A0, 40a 

5970 DATAy0n+1+,01,80,80,80,90,DD,41,00,40, 443 +%+ 


‚co, 


r 

500 DATA, 141+,,50,50,14,25,85,25,29,00,37 ,AY sur 0 
.. es, 

610 DATAIN,AO, ann AFr SF, SF, IF, 15,10, 1D, 2A, ur + 


vr 
620 DATAy 140444 ,08,08,08,08,06,04, 00,14 su yy nn 4 
630 DATA, ,,50,50,18,6A,02, 14 ,25,8B5,25,29,00,27,A 
Fayıyırıa . 

40 DATAyarunı nn BF rSF s3F s3F 15,10, 1D,2A,80,A0,20 
,20,50,10,10, 

650 DATA,02,0A,08,00,04,0C,14,A8,88,08,08,00,04, 
OC,1Ay uno 

650 DATA,01,01,01,02,02,02,02,14,25,B35,65,29,0C, 
27 ,A7 zur rs, AO,20 

570 DATAyyyr 4402, 3Fs3F,3F,3F,15,1D,1D,AN,20,20, 
50,10,10,,, 

580 DATAO2,03,01 ,03,05, 411245 
0,10,45 

690 DATA, „02, ,117+50,974,04,94,A4,30,DE,DC ar 10 8 


08,09,09, ’. .ı7,DO,D 


u 

700 DATA14,14,06,10,,40,40,76,EC,EE,AE,FC,54,74, 
AA Hann 

TIO DATA7S, y51447,M0,20,20,20,30,10,30, 530g ya Hy HH 


’ 

729 DATAysesnn sn sOSH 1AJ IF 1A, 1B,0F,1F, IF, 140,40,4 
0,40, ,40,60 

735090 DATAO2,02,02,02,01,01,01,,B5,3A,3F ,05,8F ,iF, 
IF „2A ‚E8,C8,CH, 08,54,44,44,80 


<227> 
<145> 
<159> 
<93> 
<151> 
<235> 
<35> 
<99> 
<149> 
<196> 
<39> 
<110> 
<120> 
<9> 
<241> 
<218> 
<00> 
<245> 
<223> 
<42> 
<> 
«243> 
«172> 
<20> 
<12> 


<Ba> 
<234> 


<104> 
<95> 
<151> 
<7>2 
<232> 
<7&6> 


<118> 
<200> 


<aa> 
<79> 
<12> 
<B8> 
<235> 
<242> 
<5> 
<397> 
<225> 
<101> 
<77> 


programme 


749 DATA, vr... „OA,ZA,AO,BO,AO ,2A,OA, 15, „80,A0,2 
0,A0,80,,40 
730 DATAynsınn rinnen nn 





770 DATA4444440,4A,7A 

E9,D3 

780 DATA00,00,01,01,00,01,00,00,00,00,42,40,60,2 

8,08,54,50,94,D4,74 „94,30, 90,90 

770 DATAO0,00,00,00,00,00,00,00,52,18,49,02,00,0 

0,00,00,FC,FC,FC,FC,54,74,74,AB 

800° DATAOO „00,00,00,00,00,00,00,02,0A,28,20,30,1 

0,30,50,40,20,20,20,30,10,30,50 

A1O RESTORE820: FORI=126721012751 1 READZ+POKET,Z+N 

EXT 

820 DATA124,66,66,66,33,33,63,0 

830 DATA2,2,2,2,1,1,1,0 

B40 DATA124,2,2,126,32,32,63,0 

850 DATAL24,2,2,126,1,1,63,0 

860 DATA5G 566,654 126417 141,0 

970 DATNI24,64, 64 ,126,141,63,0 

880 DATA126,64.,64,126,33, 35,63,0 

890 DATA126,2,2,2,1,1,1,0 

900 DATN124,66,66,126,33,33,63,0 

710 DATM126,66,66,126,1,1,63,0 

920 RESTORE930: FORI=1229410126711READZIPOKEI „ZEN 

EXT 

730 DATA126,66,664,126,33,33,33,0 

940 DATA126,66,66,124,33,33,63,0 

9750 DATA126,64 ,64 ,54,32,32,63,0 

9760 DATA124 ,66,66,66,33,33,62,0 

970 DATN126,64,64,126,32,32,63,0 

9B0 DATA126,64,84,124,32,32,32,0 

990 DATA126,64 ,64,78,33,33,63,0 

1000 DATAA6,66,66,126,33,33,33,0 

1010 DATAB,8,8,8,4,4,4,0 

1020 DATA126,2,2,2,1,1,62,0 

1030 DATA66,66,66,124,33,33,33,0 

1040 DATAGA „64 ,64,64,32,32,63,0 

1050 DATA124,74,74,74,33,33, 

1060 DATA122,74,74,74,37,37, 

1070 DATA6O, 66456 466,33,33, 

1080 DATA126,66,66,126,32,32 

1090 DATA&O,66,66,66,37 ,37% 

1100 DATA124,66,66,124,35, 

1110 DATA124,54,64,126, 

1120 DATA126,8,89,8,4,4, 

1130 DATA&h,66,66,56,38 

1140 DATAS6,66,66,66,33, 

1150 DATA&G,66,66,74,37, 

1160 DATAS6,66,65,60,33, 

1170 DATA&,66,66,60,4, 

1180 DATA124,2 

1190 DATAO,0,O 

1200 DATAO,0,O 

1210 DATAO,0,0, 
0,0 
0,0 
0,0 

8 


Br ua 
Kin, 


B 
oe © 


- 


1 
fi 
* 


PR 
‚Oo 
33 
33 
57 
33 


” 


SHLEE & 


»4 
- 
.“ 
>“ 
“ 
- 
© 


1220 DATAO, 
1230 DATAO, 
1240 DATAO,O, 
1250 DATAB,B,B,8, 
12650 DATA34,36,72,0,0,0,0,0 

1270 DATA34,1264,36,36,1264,354,0,0 

1280 DATA124,72,72,126,10,10,124,0 

1290 DATAO,0,0, 0, 0,0,0,0 

1300 DATA&O „66,60 ,80,74,76,50,0 

1310 DATAB,B, 164,0,0,0,0,0 

1520 DATAB, 164,32,32,32,16,8,0 

135350 DATA16,8,4,4,4,8,16,0 

1340 DATA7S,42,28,127,28,42,73,0 

1350 MTAO,8,8,62,8,8,0,0 

1360 DATAO,0,0,0,0,8,8,16 

1570 DATAO,0,0,62,0,0,0,0 

1380 DATAO,0,0,0,0,0,8,0 

1390 DATAO,2,4,8,165,32,64,0 

1400 RESTORE1410:FORI=13312T013343: READZS:POKEI, 
DECI(Z#) NEXT 

1410 DATAN&,D3S,BD,00,354,95,D64,BD 

1420 DATADO,34,85,07,20,898,38,40 

1470 DATAAS,DA,BD,EO,34,095,D08,BD 

1440 DATAFO,34,85,07,20,75,38,60 

1450 RESTORE1480: FDR1=13504T01351&4READZ: POKEI „Z 
NEXT 

1450 DATAL98,46,230,158,06,14,118,78,198,190,6,1 
50,222 

1470 RESTORE1480: FOR1=1335201013532: READZEPOKEI ,Z 
ıNEXT 

1480 DATAS7,59,58,58,58,58,59,60,57,59,60,60,40 


Begeeeenn 


GCompube mib 


“6> 
<215> 
<225> 


<208> 
<129» 
<188> 
<130> 


<44> 
<uB> 
<100> 
<2356> 
<7> 
<B> 
<9> 
<247> 
<38> 
<as>: 
<83> 


<210> 
<9> 
<57> 
<103> 
<178> 
<a4> 
<221> 
<242> 
<134> 
<252> 
<166> 
<159> 
<37? 
<203> 
<213> 
<19> 
<100> 
<217> 
<152> 
<250> 
<27> 
<220> 
<107> 
<103? 
<118> 
<189> 
<194> 
<129> 
<1359> 
<149> 
<159> 
<169> 
<179> 
<29> 
<52> 
<99> 
<148> 
<230> 
<123> 
<110> 
<96> 
<253> 
<70> 
<148> 
<162> 
<192> 
<176> 
<229> 


<34> 
<s5> 
<70> 
<155> 
<B1> 


<70> 
<27> 


<26> 
<159> 





15 


’- 


ur 





ee 


“ 


16 


"530 





programme 


1490. RESTORE1500: FORI=135351013548: READZ:POKEI ,Z 
NEXT 
1500 DATAS9,142,38,174,219,110,192,254,70,190,10 
2,150,222 
1510 RESTORE1520: FORI=13952T013364:READZ=:POKEI „2 
sNEXT 
1520 DAIAB1 ,62,61 ,63,62,61,61,61,62,59,63,60,50 
1530 FORI=BTOOSTEP-1 5 VDL I: FORN=-OTO250: NEXTI NEXT 
15940 SYS14400:PRINT"BLACK CLEAR DOHNZINEWCDOHNZ 
IDLOAD"CHRE& 134) "CI"CHRE 34)" CHOHE)”" 
1550 POKE1S19, 15: POKE1AS20,13:POKE1321 ,82:POKE1S2 
2,11 7: POKE1323,13:POKE239 ,Ss+END 

ENDE DES LISTINGS 


C-1& LISTING + CHECKSUMMEN (06 V1.0) 

10 PRINTECHR$ (142) CHR$ (8) 

20 FORT=1TO10:NMELLI="-— "NEXT 

30 NM(1)=4000:NM (2) =4400:NM (3) =6B00:NM (4)=7200:1N 
45) =7600: NM (6)=8000: NM(7)=B400 

40 NM (8) =B8004 NM (9) =72001 NM (10)=9400 

50 POKE1F,13 INPUT" HHITE CLEARIENTERTSPACE} VOURT 
60 MIELE ingE SSTHENINS=LEFTS (NS, 3) rELSEINS=NS 

70 IFLEN{N$) >16THENNS=SLEFTS (NS, 15)+". [SPACEI"1G0 
T070 

BO FORISLEN(N$)+1T017:N$=N$+" (SPACEI" NEXT 

70 TRAP2200 

100 SCNCLR: PONES5297 ‚24: POKE65302, 103: PDKESSSOZ, 
Sh:F=9: POKESSZB&, 111 G0SUBB70 

110 POKE65296,27 

120 6$t1)="TEETHLESSCSPALEISAMTSPALEN) "ıGF (1)=57 
130 B$2)="JOHNLSPACE} 'MILKY“C I"+BF (2)=60 
140 G$(3)="LUIGI{SPACEIKLAMOTTI TSPACE3) "BF (3I-6& 
i 

150 6814) ="SERGEITSPALEIBRECHOV SPACE" BF (AI=5 
8 

160 60101210:REM LAUFSCHRIFT 

170 TIF="000000" 

180 P1=0:P2=0: ZE=T: 505UB1660 

170 G0SUB1670: 57=5-6 

200 FORI=STOFSECHAR, 1,22," tD-BLUE C-I"sCHAR,T,24 
„"IYL.GRN C=)":NEXT 

210 FORI=SSTOBSTEP-1:CHAR, 1,224 "{SPACEI "CHAR, TI, 
ZA" LSPACEI"SNEXT 

220 CHAR,8,22,"(D,BLUE C-3":CHAR,B,ZI,"IYL.GRN C 
22":PRINT"HHITE HONEI" 

230 CHAR,21,8,"0"1K=S 

240 CHAR, 17,B,RIGHT#ISTREIRUD „1) 

250 POKE211,0:8Y513312:PDKE212,0:5Y513328 

260 8Y814400: FORI=0T0500: NEXT: FORI=BTOOSTEP-1:VO 
LI:SOUND! „600,5: SOUND2,800,53NEXT 

279 CHAR,17,15,"{D,BLUE S= SA SB DOWN LEFT3 SC 5 
D SE DOHH LEFT3 SF SC SH HHITEY“ 

280 POKE1339,GF (GB) zCHAR,20,15,"tSI SI SK DOWN LE 
£T3 SL SH SM DOWN LEFT3 SO SP SQ HHITEY"AFORI=OT 
0500: NEXT: BYS1433& 

290 IFSITHENJIL=INT (RND1) #8) +1:60T0310 

300 Ji=JOVtt)z IFJ1>127THENJI=J1-128 

310 IFS?TTHENJ2=INT {RND(1)48)+1: 8010340 

320 32=J0Y (2): 1FJ2>127THENJZ=J2-128 

350 GOTO340 

340 S2=57-1: IFSZTHENJI2=t INT {RND (1344) +1)-1:G0T03 
50 

350 82=5-B: 6010340 

360 PÜKE211,91:5Y513312:POKE212,92:8Y813328 

370 TU=J1+1:0NTUGOT0S60,560,390,430,470,560,510, 
560,540 

sd0 BUTOSSO 

370 IFJZ=0THENPZ=FP2+1 10010560 

400 IFJI2=8THENPZ=P2+1:60T0560 

A410 1FJ2=4THENP2=P2+1:60T0560 

420 6010540 

430 IFJI2=0THENP2Z=P2+1 1: GDT0540 

440 1F32=7THENP2=P2+1:6010560 

450 1FJ2=4THENP2=P2+1 16070560 

460 GOTOSAO 

470 I1FI2=OTHENP2=P2+1:G0T0560 { 

ABO IFIZ=6THENP2=P2+1: 6070560 

490 1FJ2=4THENP2Z=P2+11G0T0560 

s00 6010560 

510 IFJZ=0OTHENP2=P2+1:G010540 

520 IFIZ=8THENP2=P2+1:6010560 
IFJI2=7THENP2=P2+1:60T0560 


<255> 
<109> 


<209> 
<235> 
«377 


<231> 


<51> 


<797> 
<60> 


<12> 
<207> 


<163> 
x53> 


<21> 
<102> 
*219> 


<&0> 
<231> 
<156> 
<95> 


<212> 


<74> 
<62> 
<150> 
<225> 
<1a1> 


<52> 
<34> 


<74> 

<222> 
<203> 
<246>? 


<103> 


<ı171> 


<143> 
<35> 
<184> 
<130> 
<b> 
<156> 


<27)> 
<38> 
<12> 


<188> 
<210> 
<20> 
<70> 
<60> 
<250> 
<60> 
<105> 
<100> 
<34> 
<100> 
<140> 
<140> 
<74> 
<140> 
<171> 
<196> 


540 IFJZ=STHENPZ=P2+1:60T0560 

550 6010560 

560 TU=J2+110NTUGOTO750,750,750,780,700,750,660, 
620,580 

570 6010750 

580 IFJ1=OTHENPI=P1+14100T0750 

590 IFJI=4THENFI=P1414G0T0750 

600 IFJ1=6THENPI=P1+1:6010750 

610 6070750 

#20 IFII=OTHENPI=P1411B0T0750 

630% IFIL=STHENPI=PI+1:6070750 

640 IFJI=STHENPI=P1+11G0T0750 

650 6070750 

6450 IFJL=OTHENPI=PI+1:60T0750 

670 IFJ1=2THENPI=Pi+1:B0T0750 

690 1FJ1=&THENPI=P141:B0T0750 

&70 8010750 

700 IFJ1=0THENPI=P1+14B60T0750 

710 IFJ1=2THENPI=PL+1:G0T0750 

720 IFJ1=3THENP1=P1+1:6010750 

730 IFJ1=STHENP1=P1+1:6010750 

740 6010750 

750 IFP1<2&THENCHAR,B+P1,22, "{D:BLUE € WHITEI"R 
ELSE1780 

760 IFP2<26THENCHAR,8+P2,24,"£YL.GRN C- WMITEI": 
ELSE1680 

770 POKE211,0:89813312:POKE212,0:8Y813328 

780 K=K+1r IFK=4THENK=0: ZE=ZE--1 1 BOTOBOO 

790 GOTGB1O 

800 CHAR,„23,8,RIGHT# (STR&(ZE} „2) . 

M10 IFZETHEN290 

820 5Y514400: FORT=010250: NEXT: FORI=BTOOSTEP-1:V0 
LI:SDUNDI ‚600,5: SOUND2,800,5:NEXT 

#70 FORN=OTOLSO:NEXT 

840 BOSUBL 120 

850 RU=RIF1: IFRU<4THENIBO 

860 REM 

870 60101800 

880 POKE#5298, 1951 POKE64S297 ,B:END 

890 PRINT" (CLEAR SPACE12 YL-GRH STIS YLGRN 

900 PRINT"{DOHN SPACES CA SY21 e, 

710 PRINT"SPAGER SZ CA $Y1? CS Sz 

720 PRINT"ISPAGEB SZ2 YELLOWI1HLYL.GRN SPACEIT 8 


930 PRINT"CSPACERS $22 SPACEIS 
940 PRINT"ISPACES 322 VELLOWY2s 2 (YL.ORN SPACEIT. & 


F50 PRINT"tSPACES $S22 SPACEIP 52 

960 PRINT" 5  SZ2 SPACEIF SZ 

970 PRINT"{L.BLU SR YL.GRN SPACET S22 SHIFTSPACE 
19 S22 L.BLU SPACE? SS 

780 FRINT"IYL.GRN SR2 YL.ORN SPACES SZ Ca, SY43 € 
X SZ YL.GRN SPACES. SS 

970 PRINT"(CD.BLUE SR3 YL.ORN SPACES C2 CR2 $Y17 


1000 PRINT"{BL.GRN SR4 D.BLUE SYS CE2 5Y17 CE S 
Y5 BL.GRM SS 

1010 PRINT"{BRN SRS D.BLUE Sr29 BRN SS 

1020 PRINT"{PINK SR& D.BLUE S+7 SPACEIZ S+t7 PINK 


ss 

1030 PRINT"CL,BLU SB7 D.BLUE $+3 SPACEIS $+3 LıB 

u SS 

1040 PRINT" (YL,GRN SR@ D.BLUE S+3 SPACE LıGRH SV 

SPACE13 SW D.BLUE SPACE Sr3 

1050 PRINT"(BL.GRH SR? SPACES L.GRN SV SPACEIZ S 
SPACEZ 


H BELORH S2 

1060 PRINT" IBL.GRN SU3 SPAGEZ LıBLU SUIS SPACES 
BL.ORN SO 

1070 PRINT"tBL.GRN SUP SPACE3 ORNG SU15 SPACE3 B 


LıGRN SU 

1080 PRINT" {BRN SX39}" 

1090 PRINT" (YELLOW DOWNIBOXERCSPACEI LI CSPACEZE 8 
REEN’K.D." 

1100 PRINT"ICYAN DOHNFBOXERISPACEI2: ISPACEZS PUR 
PLEIK.O. (HOHEI" 

1110 RETURN 

1120 SY514400 

1139 1=0:POKE65296 ‚176: POKE63277 ,68 

1140 RESTORE1170:FORN-0T015:READZ:POKE129AA4N, Za 
NEXT:POKE6S5295, INT{RND{1) #69) +1 

1150 FORN=0TO15:READZ:POKE12944+4N,2:NEXT 

1160 1=I+1: IFI<STHENI 140: ELSEPOKE#5297 „Or RETURN 

1170 DATAO,0,20,89,94,88,104,48 

1180 DATAO,0,20,37,181,37,41,12 

1170 DATAZO,88,74,88, 104,48,252,232 

1200 DATA20,37,181,37,41,12,63,63 





Gompute miß 


«196> 
<125> 


<124> 
<14b> 
<204> 
<234> 
<259? 
<1865> 
<244> 
<13> 
<38> 
<226> 
<28> 
<48> 
«79> 
<10> 
<6B> 
<88> 
<103> 
<123> 
<60> 


<200> 


<210> 
<1> 

<90> 
<101> 
<143> 
<119> 


<184> 
<159> 
<133> 
<242> 
<238> 
<172> 
<172> 
<147> 
<222> 
<184> 


<234) 
<50> 


<12> 
<70> 
<80> 
<19> 


<225> 


<199> 


<242> 
<200> 


<184> 


<124> 


<ı22> 
<189> 


<71> 
<102> 


<250> 


<170> 
<232> 
<224> 
«772 


<252> 
<101> 
<69> 
<27> 
<169> 
<ı191>2 
<172> 








187 


1210 TRAP2200: 5Y5144001 8Y814336:P=0:81=0:82=1ı Fü 
RI=0T01&: CHAR ,28-1,4,"ISPACEI" NEXT R 

1220 FORI=OTO1&SCHAR ‚28-1 ,6," (SPACEI"SNEXT 

1230 CHAR,13,4," CGREENILTSPACE}PLAVERCHHITE}"+G= 
1:5Z=4 

1240 POKE211,0:8Y8135312: POKE212,018Y513328 

1250 CHAR,17,15,"{D.BLUE S= 5A SB DOWN LEFT3 SC. 
SD SE DOWN LEFT3 SF SG SH WHITEY" 

1240 FOKE1S37,GF-G)2CHAR,20,15,"{SZ SI SK DOWN & 
EFT3 SL SH SM DOWN LEFT3 SO SP S@ MHITE>" 

1270 CHAR,IF,25, "(SPACE24) "ıRU=1 

1280 DATA" KSPADEYIHEHTSPACEISOFT {SPACEHPRESENTSCS 
PACEI” 

1290 DATA" TSPACEI=SPACE) "THETSPAGEICHAMPS’ (SPAC 
EI#ISPAUCEZYI" 

1300 DATA" ISPACEIALSPACEIBOX ING-GAMETSPAGEIFORTS 
PACEI” 

1310 DATA" {SPACEI THESPACEICONMODDRE(SPACEIELSP 
AGE2}Y" 


1320 DATA" CSPACEIFUNKTIONTSPACEIKEY "5: TSPALE3I" 
1330 DATA" CSPACEI *# "=CHDOSE SPACEIPLAVERISPACEI" 
1340 DATA" SPACE) '5°=STARTISPACE)IGAMETSPACEAN" 
1350 DATA" {SPACEIPRESSC: + "RUN/STOP " (SPACE2Y" 
13460 DATA" SPACEIFOR (SPACE }NEWLSPACEINAMELSPACES 
) „ 

1370 DATA" SPACE VOULSPACEIMUST (SPACEIDEFEATLSPA 
CE3} " 

1300 DATA"ISPACEIATSPACEIOFPONENTSCSPACEN ! {SPACE 
5," 

1390 DATA" SPACE}. TSPACEITEETHLESSTSPACEISAMLSE 
ACEZY" 

1400 DATA" TSPACEI-TSPACEIBREATLSPACEIBRITAINISPA 
CE3I" 

1910 DATA" SPACEYZ. (SPACEIJOHNTSPACEI 'MILKY' {SPA 
CE3)" 


1420 DATA" {SPACEI-TSPACEITEXASCSPACEIFTSPACEIUSA 

tSPACESY" 

a DATA" (SPACEIS. LSPACEILUIGILSPACEIKLAMOTTITS 

BACEY" 

1AAO DATA” SPACEI-TSPACEITTALYCSPACELLY" 

1450 DATA" SPACEIA, (SPACEISERGBEI TSPACE}BRECHOVES 

PACEI" 

1460 DATA” TSPACEI-tSPACEISOVIETUNIONSPACESI" 

1470 DATA" {SPACEI THEY LSPACEIALL{SPACEIFIGNT (SPAC 

E43," 

1480 DATA" LSPACEIVERVTSPACEIWELLCSPACEIT TI CSPACE 

Fr“ 

1490 DATA" SPACE) una tSPACEIGODDISPACEHLUCKCSPACE 

IKe#tSPACEI" 

1500 DATA" SPACEIPRESS'S"TOLSPACEISTART{SPACE2I" 

1510 DATA" ISPACEIFOLLOWINGTSPACEIATSPACEIDEMULSP 
27" 

1520 RESTURE12804 PRINT" (HHITEI"sFORN=0TO23:READL 

$ 

1530 FORI=0TD18:CHAR,28-T ,B,LEFTS(L$,I41) ıNEXTıF 

DRK=OTOLSO ) 

1540 GETT$: IFT$="S"THENGOSUB1630: T=50: 6010170 

1550 IFTS="#"THENGOSUBL400 

1560 NEXT 

1570 FORT=18T00STEP-1: CHAR, 10,8, RIGHTS(L$,I+1) N 


EXTENEXT: T=30:81=1:52=1 

1590 CHAR,9,23," (YELLOHIPRESSCSPALEI "RUN/STOP' CS 
PACEITOLSPACEIEND{HHITEI "ı TRAP1210 

1570 GOSUB1&30:GOTD170 

1600 Pai-P 

1610 IFPTHENCHAR, 13,4," CSPACEBI "I CHAR, 13,64" TORE 
EN? 21SPAGEIPLAYERCHHITE}" 151=0:92=04 RETURN 

1670 CHAR,13,6,"t ?"SCHAR, 13,4," {GREEN LLSR 
ACE>PLAYERTHHITEI"151=0:52=1: RETURN 

1630 L#="{SPACEIROUND: (SPACEFIO12001SPACEII" 
1640 FORI=OTO1B:CHAR, 28-1 ,8,LEFTStL$,I+1) :NEXTIE 
HAR,10,8,"tSPACE REDIROUND: {MHITE SPACEFIOL:00" 
1550 RETURN 

1660 POKEIS39,B6: FORI=OTD1&: CHNR,28-1,4,LEFTSINS 
„I+1) :NEXTI PRINT" (MHITEI "RETURN 

1670 FOKE1S37,GF (0) +81 FORI=0TOL6: CHAR, 28-I,6,LEF 
15168 (6) „I+1) 2NEXT:PRINT" (HHITE} "RETURN 

1680 SYS14400: TM=TI 

1670 POKE212,9:8Y8133284 FORI=0T0500: NEXT: POKEZIZ 
„10:5Y513328 

1700 FORI=BTOOSTEP-1:VOL1:SOUNDS,S00,3:NEXT 

1710 POKE211,11:89813312:FORI=0TD100: NEXT 

1720 GUSURI120:Rl=1:6=G+1: IFGS=ATHEN180 

1730 POKE211,1145Y513312:60SUB11204 POKE212,12:3Y 
913328: GOSUB1 120: GOSUBI 120 

1740 IFS1=0ANDS2=1ANDTMSNM( 10) THENI830 











<207> 
<ı154> 


792: 
<21&> 


<130> 


<75> 
<189> 


<237> 
<70> 


<248> 


‚<232> 


<Ba> 

<185> 
<38> 

<100> 
<144> 
<91> 

<134> 
<149> 
<246> 
<128> 
<193> 


<35> 
<&0> 


<206> 
<27> 


<al> 
<206> 


<250> 
<212> 


<214> 
<199> 
<33> 
<b4> 


<a0> 
<160> 


<234> 


<58> 
<251> 
<201> 


227) 


<167> 
<79> 


<56> 
<b> 


<115> 
<197> 
<249> 


<20> 
<7> 

<b3> 
<14> 


<201> 
se 





Programme 


1750 GOTO1210 
1760 84514400 
1770 POKE211,9:5Y513312: FORI=OT0500: NEXT: POKEZ11 
‚10:5Y813312 
1780 FORI=BTOOSTEP-1:VGOLI:SOUNDS,300,3:NEXT+FORI 
=01050:NEXT 
1790 POKE212,11:5YS13328: GOSUB1120+ POKEZ11,12:5Y 
513317:60SUR1 120: BOSUB1120:G0T01210 
1800 IFP2>P1THENSYS14400: 60101710 
1810 IFP1>P2THENSYS14400: 60701770 
1820 IFPi=P2THENSYS14400: GOT0180 
1970 FORI=0T0500: NEXT 
1840 FORI=0T012:POKE2023,12-1:POKE2022, 12-1: POKE 
2024 „27* 1: POKE2021 „12+1 
1850 SCNELR 
1840 NEXT 
1870 SYB1a400 ‚ 
1880 L$1O)="LLEFTFZIDEINETSPACEI INITIALEN" 
1890 LEt1I="TUR LEFT UP LEFT UP LEFT UP LEET UP 
LEFT UP LEET UP LEFTIDIDONNIETDOHN>TCDOHNINCDONN 
JETDOHN SPACE DOWN) TDONNYNEDGHN}TCDOHNITLEDONNJ I 
CDOWHN?ATDOHNYLCDOHNIELDOHNIN" \ 
1900 L#t2)="{UP7IDIDOWN LEFTIETDOHN LEFTITLDONN 
LEFTIN{DOHN LEFTIEXDOHN LEFT SPACE DOHN LEFTIIED 
OHN LEFTINCDOHN LEFTITCDONN LEFTITEDOWN LEFTIIKD 
QHN LEFTIAXDOHN LEFTYLIDOHN LEFTIELDONHN LEFTIN" 
1710 LE1SI="ILEFT? DOHNZINCUPIELYUPHÄUPIATHPITEU 
EITLURITLUPINLUPITLUP SPACE UPYECUPINTUPYITUPIET 
UPID" 
1920 L£#1A)="ILEFTZINELAITINICSPAGEIENIED" 
1930 LS(SI="ILEFTZ UPZINCDOHNIETDOWNILXDOHNALDO 
HNFIEDOHNITCDOHNIICDOHNINEDOHN>ICDOHN SPACE DOHN 
IE CDOHN?YNCDOHKYTXDOHNIELDONN?:D" 
1740 LEi&)="{DOMNZIDLUP LEFTIELUP LEFTILLUP LEFT 
INtUP LEFTIELUP SPACE UP LEFTITLUP LEFTINU 
P LEFTIIEUP LEFTITLUP LEFTIILUP LEFTIATUP LEFTYL 
(UP LEFTJYETUP LEFTIN" 
1930 L£{7I="(LEFT7 DOHNTID{UPIELUPITTUPINLUPIEU 
P SPACE UPILLUPINTUPITCUPITLUPFILUPIALUPILCUPIER 
UPIN":O=1: POKEA5287 ,8 
1960 1=0 
1770 SCNELRSCHAR,19,12,L#{0) 
1780 FORN=OTOR:NEXT 
1990 1FI<7THENI=1+1:60101970 
2000 IF@< >81 THENA=9+20:GOTD1950 
2010 SENCLRECHAR,19,12,LF10) 4" (SPACEYE (SPACE YEL 
LOWI"HINE 
2020 FORI=0T015004 NEXT: FORI=OTO11:PRINT" (HONEI"T 
HR# (27) "V" NEXT 
2030 CHAR,16,2,"TREDITOPLSPACEITENTSPACEIT" 
2040 FORI=1TD9I:CHAR,11,5+2#1 ,"CYELLONI"+STREITI+ 
"„":NEXT 
2050 CHAR,11,23,"YELLONI LO." 
2060 NM(10)=TNM:NME(IO)=INS 
2070 GOSUBZ120 
2080 FORI=I1TO10SCOLORI „S+1 „4: CHAR, 16,3+2#1 „NMSCI 
IzNEXT 
2090 PRINT" CHHITEI"sFORI=1TD10:CHAR,21,3+2#1,9TR 
S{NMCIII:NEXT 
2100 CHAR,A,7,"IGREENIPIDOHN LEFTIRDOUN LEFTIET 
DOHN LEFTIBEDOUN LEFTISIDOHN LEFT. SPACE DOWN LEF 
TIKIDOHN LEFTIETDONN LEFTIYIDOHN LEFT SPACE DOWN 
LEFT) '(DOMN LEFTYSCODOHN LEETI 'CUHITEI" 
2110 GETT$: IFTS<C>"S"THENZ11O:ELSEL10O 
2120 EC=0 
2130 FORI=1T09: IFNMt1+1) >NMtTI THENZ180 
2140 N=eNM(I) sHS“NMF (I) 
2150 NMCDI=NM(I#LI aNMECDI=NMECI+L) 
7160 NMELIHLIANSNMECT+II=HE 
2170 Cc=1 
2180 NEXT 
2190 IFCC>OTHEN21201ELSERETURN 
2200 5Y514400: TRAP2200 
2210 FORI=0T012:POKE2023 , 12-1: POKE2022, 12-I:POKE 
2024 „27+1: POKE2021 ,12+1 
2220. SCNELR 
2230 NEXT: POKE#45287,8 
2240 POKEIY,1: INFUT"CHHITE CLEARYENTERTSPACEIVOU 
RISPACEINAME SPACE) ";NESPOKEIF,O 
2250 IFNS="END"THENEND 
2260 IFLEN{N#) >3STHENINF=LEFTS(NF 3) HELSEINS=NS 
2270 IFLEN{N$) PJLETHENNS=LEFTS NS, 15) +". CSPACEI" 
SUTOLOO 
2280 FORI=LEN{N$) +11017:N$=N$+" CSPACEI "NEXT 
2270 GOTD100 
ENDE DES LISTINGS 


Compubs mib 


<17> 
<98> 


“217? 
<1009> 


<226> 
<100> 
<1> 

<238> 
<118> 


<223> 
<a1> 

<205> 
<209> 
<200> 


<108> 


<175> 
<214> 


<205> 


«162> 


<211> 
<256> 
<71> 
<118> 
<160> 
<34> 


<71> 


<13> 
<a2> 


<56> 
<81> 
<34> 
<90> 


<231> 
<127> 


<23> 
<249> 
<237> 
<211> 
x97> 
<is1> 
<243> 
<37> 
<14> 
<70> 
<112> 


<B2> 
<156> 
<130> 


<57> 
<239> 
<213> 


<157> 
<6> 
<55> 
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checksummer 





Der Checksummer für alle C-16/116 - 
oder Plus 4-Besitzer! 


Die Arbeitsweise.des C-16/116 Checksum- 
mers entspricht weitgehend der VC-20- 
und C-64-Version und braucht deshalb 
nicht näher erklärt zu werden. Da auch der 
C-16/116 nicht den größten Speicher be- 
sitzt, wurde hier die Methode der VC-20- 
Version gewählt, und das Maschinenpro- 
gramm in den Kassettenpuffer gelegt, Dies 
hat den Vorteil, daß kein Basic-Speicher 
verlorengeht. Der Nachteil besteht darin, 
daß nach der Aktivierung des Checksum- 
mers keine Kassettenoperationen durch- 
geführt werden dürfen, da diese unweiger- 
lich zum Systemabsturz führen. Um die 
Kassettenoperationen wieder zuzulassen, 
muß der Checksummer durch die beiden 
folgenden SYS-Aufrufe abgeschaltet wer- 
den: 


SYS 62158 : SYS 33047 


Aktiviert wird der Checksummer mit SYS 
818. Die Funktion und Arbeitsweise ent- 
nehmen Sie bitte der C64-Checksummer- 
Version (siehe Ausgabe Computronic Nr. 
3). Eine Ausnahme bei C-16/116 sind 


die zusätzlichen Steuerzeichen 'FLAS- 
HON'’ (CTRL-), und FLASHOFF’ (CTRL.) 
welche ebenfalls durch Klartext ersetzt 
werden (s. Tabelle Tastenbezeichnungen). 


Arbeitsweise und Aufbau unseres Check- 
summers: 

Unser Checksummer besteht aus einem 
kleinen Maschinenprogramm welches als 
Basic-Loader abgedruckt ist. 


Tippen Sie diesen Loader ein und spei- 
chern ihn auf Kassette oder Diskette, denn 
Sie können ihn zukünftig immer wieder 
benutzen, 


Der Start erfolgt durch den Befehl „RUN“, 
Nach kurzer Zeit meldet sich der Rechner 
mit der Meldung „TRONIC ..“. Der Check- 
summer ist nun aktiv und man kann ein be- 
liebiges Tronic-Listing eingeben. Vorher 
sollte der Checksummer mit dem Befchl 
„NEW“ gelöscht werden. Nachdem eine 
Zeile mit RETURN abgeschlossen wird, 
erscheint links oben auf dem Schirm eine 
Prüfzahl. Vergleichen Sie diese mit der 


Zahl im Heft hinter der Zeile. Stimmt die 
Zahl überein, ist die Zeile richtig eingege- 
ben. 

Auf die Weise können Sie das gesamte 
Listing schnell und fehlerfrei eingeben. 


Interessant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 
nutzt werden können, ohne die Checksum- 
me zu verändern, Leerzeichen außerhalb 
von Anführungszeichen werden ignoriert, 
da diese auf die Ausführung der einzelnen 
Befehle keinen Einfluß haben. 


Für alte, die nicht gerne abtippen, Ist 


der Checksummer unter folgender Be- 
stellnummer zu beziehen 


OV 10 K Kassette I DM 
O0 HI D Diskette 15 DM 





Achtung: nach dem Starten des Checksum- 
mers muß noch »NEW (RETURN)« eingege- 
ben werden. 


PRRPUUee TED 20 nn nn en I 0 2 60130 PRINT" {DOWN>SAVE/LOADISPACEIISTISR 
E73 WAEHREND {SPACEYDERE ICHECK-" 
&0140 PRINT"SUMMERTSPACEIAKTIVISPACEIIST 
„tSPACEINICHT TSPACEI MDEBLICHT ri“ 
60150 PRINT" DOHN}BEACHTENTSPACEISIETSPA 


CEIDIETSPACEIHINWEISELSPACE) INTSPACEIDEN 


60170 PRINT"HEFTEN{SPACEICOMPUTEISPACEIM 
ITISPACEIUNDET COMPUTRONIC" 

&0180 PRINT" CDOWNIVIEL<SPACEISPASSISPACE 
31 {SPACE} (AUTOR: F. BRALL/644350NTRA) 
&0190 POKE 814,147:POKEB15,251:POKE 814, 
147:POKE 817,251 

60195 SYS BIS:END 


C16-CHECKSUMMER 
COPYRIGHT BY FRANK BRALL 


iC) 16.04.86 


SONDUuBun® 


REM ee 
10 PRINT"{CLEAR DOWN SPACE2? 4440 1SPACE2} 
CHECKSUMMER (SPACEIOCTSPACE} 1.OXSPACEZI #4 
$4:DOHN?" s 
11 PRINT" CSPACE2I0 
GEIFRANKTSPACE>BRALL {SPACE} #4DOHN?" 

12 PRINT" SPACESIFUER(SPACE}TRONIC-VERLA 


DIMH (75) 1 FORI=0T07 
H(48+T)=I1:Ht45+1)=1+10:NEXT 
FOÜRI= 818 TO 1010 TREADA$ 
H=ASC (LEFTS (AS, 1)) 
L=ASE (RIGHT#(AS,1)) 
D=HtH) #iö+HtL) 15=8+D: POKEI,D 
AmfA+1: IFA<ZOTHENNEXT:A=-1 
READV: Z=2+1: IFV=STHENSOOES 
&0080 PRINT"DATAFEHLER{SPACE}YINISPACEIZE 
ILE SPACE}: "4 60200+Z: END 
50085 IFASOTHEN&O100 
60090 S=01 A=Os NEXT 
&0100 PRINT" {DOWNZ2Y" 
60110 PRINT"CHECKSUMMERTSPACEIEINTSPACE) 
={SPALEISYSISPAGEIBIBTDOHNF" 
60120 PRINT"CHECKSUMMERTSPACEIAUSISPACEI 
=tSPACEISYSTSPACE?6215B+8YSTSLAGEISSORTT 
DOWN?“ 


»00,86 , FF ,40,36,87,00,00 
&0210 DATA 00,00,00,00,00,00,00 
‚00,00,00, 0 





18 Compute mit — Sonderheft — 
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checksummer 


Checksummer C 
Version 1.0 
für Commodore 64 


Checksummer vi. ist ein Prüfsummen- 
Programm, das die Eingabe von Pro- 
gramm-Listings zum wahren Vergnügen 
macht, Tippfehler werden schon während 
des Eingebens der einzelnen Programm- 
zeilen erkannt. Dieses System, zusammen 
mit einem neuen Druckverfahren, gewähr- 
leisten, daß unsere Listings zu 99.9% feh- 
lerlrei abgedruckt werden. 


Arbeitsweise und Aufbau unseres Check- 
summers: 


Unser Checksummer besteht aus einem 


















kleinem Maschinenprogramm, welches als 
Basic-Loader abgedruckt ist. 

Tippen Sie diesen Loader ein und spei- 
chern Ihn auf Kassette oder Diskette ab: 
Sie können Ihn zukünftig immer wieder 
benutzen, Der Start erfolgt durch den Be- 
fehlt „RUN“, Nach kurzer Zeit meldet sich 
der Rechner mit der Meldung „TRONIC .*. 
Der Checksummer ist nun aktiv. Nun kann 
man ein beliebiges Troniec-l.isting cinge- 
ben. Nachdemeine Zeile mit RETURN ab- 
geschlossen wird, erscheint links oben auf 
dem Schirm eine Prüfzahl, Vergleichen Sie 
diese mit der Zahl, welche im Hell hinter 
diese Zeile abgedruckt ist. Stimmen die 
Zahlen überein, so ist die Zeile richtig ein- 
gegeben; ansonsten muß sich noch ein 
Fehler in Ihre Eingabe eingeschlichen ha- 
ben, und Sie müssen die Zeile korrigieren. 


C64 LISTING MIT CHECKSUMMEN (EC V1.0) 
15 DATA73,67 ,45,86,69,92,76,65,71,32,67, 




















Auf diese Weise können Sie das gesamle 
Listing schnell und fehlerfrei eingeben. 

Interressant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 


nutzi werden können, ohne die Checksum- 
me zu verändern, Leerzeichen »ußerhalb 
von Anführungszeichen werden ignoriert, 
da diese auf'die Ausführung der einzelnen 
Befehle keinen Einfluß haben. Sie können 
Ihr Programm auch starten, denn der 
Checksummer und Ihr Programm beein- 
flussen sich nicht gegenseitig. Wollen Sie 
den Checksummer abschalten, 50 geben 
Sie einfach „PORE 1,55“ ein oder betätigen 
die Tasten-Kombination „RUNSTOP und 
RESTORE*. Aktivieren können Sie den 
Checksummer jederzeit (auch nach RE- 
SET) mit „POKE 1,53“, 



















0 REM #e## TRONIC CHECKSUMMER #uur# <i16> 72,69 ,67,75,83,85,77 <129> 
1 REM VERSION C 1.0 BEI FRANK BRALL «10> 16 DATA77,69,82,32,35,35,35,35,139,13,13 

2 REM ——— 5 <148> 32,32,32,32,32,32,32 <147> 
3 FOR 1=832 TO 1008: READ A:5=S5+A <6B> 17 DATAS2,32,32,32,32,86,69,82,85,73,79, 

4 POKE 1,A:NEXT I:IF S<>15397 THEN PRINT 78,32,67,32,49,46,48 79) 
"FEHLER{SPACEI INTSPACEIDATA-ZEILENLSPACE 18 DATAI3,13,32,32,32,32,32,52,40,67,41, 
IItSPACE} (10-19) "STOP 432> 32,70,92,65,78,75,32 <94> 
S SYS 832:5=0:FOR I=58444 TOD 58603: READ 19 DATAB6,82,69,76,76,32,40,47,49,46,56, 

A: S5=5+A . <21> 53,41,13,0 <12> 
& PDKE I,A:NEXT IıIF 8<>18919 THEN PRINT 29 DATA169,0,191,107,191,141,108, 191,141 
"FEHLERTSPACEIINTSPACEIDATA-ZEILENTSPACE ‚109,191,1680,2,24,177,95,200, 113 «73 
21 SPACE} (29-36) "ı8T0OP “219 so DATA95,141,109,191,160,3,200,177,95,2” » 

7 S=04FOR 1=48977 TO 49005:READ AıS=sm «33> 40,44,201 ,34,208,10,1753,307,191 «91? 
B POKE 1,AsNEXT IzsIF 5<>2888 THEN PRINT" 31 DATA73,1,1441,107,191,177,95,174,107,1 
FEHLERLSPACEI IN{SPACEIDATA-ZEILEN SPACE) 91,208,4,201,352,240,228,238,108 <128> 
{SPACE} (44-47) ":STOP <23> 32 DATA191,174,108,191,24,177,95,109,109 

9 PRINT" (DOMNZIAKTIVIERENISPACE) ı {SPACE) ‚191,141,109,191,202,208,244, 76,120 <244> 
FOKEISPACEY1 „SSCSPALELE>AUSSCHAL TEN: {SPA 33 DATA228,56,76,183,229,72,32,201 ,255,1 
CEIPOKE SPACE) „33" NEW <26> 70,104,144,1,138,96,32,240,255 <101> 


10 DATA169,0,133,254,162,1,109,137,3,133 24 DATA142,103,191,140,106,191,162,0, 160 








255,160,0,177,254,145,254,156 <176> »0,24,32,240,255,169,91,32,12 <89> 
11 DATA208. 249 ‚230.255, 165.,295,221,139,3 34 DATA225,167,0,174,109,191,32,205,189, 
+209,,238,202,15,230,169,96,141,49 <147> 169,93,76,83,191,173,35,208,145 <239> 
12 DATA165,169,228,141,50,165,1659,53,133 36 DATA243,96,105,2,164,145,200,208,4,17 
,1,159,141,133,254,162,3, 134,255 <225> 7,161,208,247,976 <202> 
13 DATA140,0,177,254,240,7,32,202,241.20 46 DATA32,12,225,32,63,171,32,63,171,172 
0,76,120,3,149,2,141,32,208 <140> ‚106,191,174,105,171,24,52,240 <213> 
14 DATA96,160,224,192,0,197,17,32,32,35, 47 DATA25S,76,128,164,24,0,0,5,200 <65> 
235,35,35,32,84,82,79,78 <i58> ENDE DES LISTINGS 


Checksummer für 
COMMODORE 64 


Wer den Checksummer nicht eingeben möchte, kann diesen auch unter der 
folgenden Bestellnummer beziehen: 


Bestell-Nr. CV10K/Kassette 10 DM, Bestell-Nr. CV10D/Diskette 15 DM 
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schafft, müssen Sie nur.noch in 
ie vier Diagonalen laufen und Sie 
sind der neue Pharao! 


Im nächsten Level haben sie na- 
türlich weniger Zeit zur Verfü- 
gung, um die Ihnen gestellte Auf- 
gabe zu meistern. Auch andere 
Gefahren stellen sich noch zusätz- 
lich ein!?! 


Sie dürfen übrigens weder Spinne, 
Monster oder einen Stein berüh- 
ren, dann ist Ihre Mission vorzei- 
tig beendet! 











Meinst dis, wir finden das Geheimnis der Pyramiden? 


Die tausend Leiden eines werdenden Pharao 





Stellen Sie sich vor, Sie befinden fallende Steine erschweren das Er- Totenköpfe und Mumien müssen 

sich im alten Ägypten und sindin klimmen der Pyramide. Die ein- Sie einsammeln, aber den Spinnen Tips zur Steuerung 

der e für die zige Möglichkeit, die es gibt, ist, sollten Sie aus dem Weg gehen. 

Nachfolge des eben verstorbenen uch nahe an die Pyramiden- Haben Sie alles eingesammelt, o Zum Erklimmen der Pyramide 
Pharaos, Alle Bewerber werden wand zu stellen. Haben Siedasge- wird (unten links) ein Weg freige- Joystick nach links 

einer harten Probe unterworfen. schafft, können Sie in die Pyrami- 


Ihre Aufgabe ist es, in eine Pyra- 
mide einzudringen. Und das ist 
wirklich nicht so einfach. Herab- 


de eindringen. Dort allerdings er- 
warten sie zwei Karen mehrere 
Totenköpfe und Mumien. Die 


geben, der in die tiefste Ebene 
hrt, Dort müssen Sie ein Mon- 
'ster überwinden und sich durch 
die Grabkammer graben, Ist dies 


Zum Zerhacken der Grabkam- 
mer Joystick und Trigger nach 
rechts 





C-1& LISTING + CHECKSUMMEN (DE V1.0) 21 DATA 24,144,216,201,254,208,19,165,208,133,21 


5,165,211,133,208, 163 <221> 
© REM Mahn an <1> 22 DATA 209,155,214,165,212,133,209,24,144,196,2 
1 REM * BACKROUND & VORPROGRAMM # <43> | 01,253,208,11,165,213 <185> 
2 REM Haar <3> 23 DATA 155,208,165,214,133,209,24,144,181,201,2 
FR FÜRI=1336101336+173 <2> 52,208,13,173,17,255 <191> 
4 READA 17% <15> | 24 DATA 41,240,5,211,141,17,255,24,144,164,73,25 
5 POKEI,N 7 <182> | 5,141,252,4,.169 <51> 
& NEXTI <26> | 25 DATA 255,141 ,254,4,173,18,255,41,252,5,212,14 
27° FOR1=1712T01 71241 19STEPS <139> | 1,18,255, 165,211 <70> 
8 RENDA,B <157> | 24 DATA 141,14,255,173,17,255,9,16,141,17,255,24 
7 POKEI ‚A:POKEI+1 „B- (INT(B/256) #256) <153> | ‚144,182 «243 
10 FOKEI+2, INT (B/256) <30> | 27 : <as> 
11 DeD+n+B <54> | 20 DATA 294,1727,254,1796,254,1796,254,1727,254, 
12 NEXTT <«32> | ı712 <03> 
1% POKE208, 176: P0OKE209 ,& <120> | 29 DATA 10,405,10,739,20,739,10,685,10,643,20,59 
14 VOL4A:BY81536 <191> | 6,10,643,10,605 <B2> 
57 <75> | 30 DATA 10,739,10,685,40,643,10,685,10,739,20,73 
fie DATA 120,169,36,141,720,3,169,6,141,21,3,169,2 9 <207> 
55,191,252,4 <82> | 51 DATA 10,495,10,643,20,596,10,643,10,685,10,64 
17 DATA 141,254,4,08,96,120,169,14,141,20,3,169, s <38> 
206,141 12143 <20> | 32 DATA 10,594,40,596,253,0 e&2> 
18 DATA 88,95,255,0,175,252,4,201 ,255,240,3,76,1 53 DATA 10,770,10,810,20,810,10,796,10,739,20,77 
4,206, 160,0 <> |c <40> 
19 DATA 162,0,177,208,149,210,200,232,138,201,3, 34 DATA 10,770,10,910,10,798,10,739,40,770,253,0 <i91> 
200, 245,165,2089,105 <240> | 35 COLORO, 1rCOLOR4,3,3:GRAPHICI „I <14> 
20 DATA 2,133,208,144,2,230,209,165,210,201,255, 36 COLORI 4247 «223> 
200,6,32,21,& <11> | 37 DRAW 100, 100T0180, 100 <20> 
21 DATA 24,144,216,201,259,208, 19,16%, 208, 133,21 33 DRAW1,100,100T10130,70 <212> 
187 Computs mi 21 














programme 


39 DRAW ,130,7010710,70 
DRAWI „210, 7010180, 100 
DRAWI ‚100, 10010155, 18 
DRAW „180, 100T0155,15 
DRAWI „130, 70T0155,15 
DRAWI „210, 7010155, 15 
COLOR: ,?,4 
CHAR1,14413, "PYRAMID" 
47 CHAR1 12,15, "VORPROBRAMM" 
48 CHAR1 42,17, "WRITTEN{SPACEI LIAGCSPACEIBY SPACE 
}BIGERNTSPACEI THIEMANN" 
49 CHAR1,12,19,"DRUECKEISPACEIFA" 
So KEYI,"LOAD"+CHR$ (13) 
51 FORT=1T030001NEXT 
52 GRAPHICELR 
53 NEW 
ENDE DES LISTINGS 


= 
nz 
42 
a3 
aa 
45 
a6 





C-14 LISTING + CHECKSUMMEN (DC V1.0) 


0 TRAP 277 

i REM ” 

2 REM Pr 

5 REM “ve 

4 REM :=R + 

5 REM “PYRAMID# 

6 REM * Mm * 

7 REM * 1 * 

8 REM “ D “ 

9 REM * MRITIEN BV # 

10 REM “ BJIGERN THIEMANN # 

11 REM # WUERZBURGERSTR. 14 # 
12 REM Ei 3014 LAATZEN 1 w 
13 REM # TELEFON: 0511/82 64 59 # 
14 REM EEE TE TE NE I ZI e 
15 REM ZEICHEN DEFINIEREN 

15 ZF=5:LE=1: TM=0:VOL4 

17 COLDRO,1:C0LOR4 „1 

18 RESTORE 

19 FOKES1 „0: POKES2 ,60:1 POKESS ‚0: POKES6 „50: POKE6S2 
78,0: FOKE45297 ,60 


20 FÜRT=153001015333 

21 READA1:POKET,AL:LNEXT 

22 DATAL59,000,133,003,133,005,169,211,133,004,1 

69 ,063,133,006, 160,000, 177 

22 DATAO03,145,005,136,208,249,198,004,198,006,1 

65,006 ,201 ,059,208,257,096 

24 BYS15300 

28 FORT=OT08: READZN 

26 V1=15360+8#ZN: FORCI=0T07 

27 READHI:POKEVI+C1 „HI:NEXTINEXT 

28 DATABZ,&60,90,255,189,195,255,36,102 

27 DATA102,180,190,259,230,150,121,210,130 

30 DATA42,255,0,255,0,255,0,255,0 

31 DATNZS,1,2,4,8,16,32,64,128 

32 DATAO,60,90,258,195, 126, 36,36,231 

33 DATAsS, 126,153, 153,231,102,60,36,24 

34 DATA86,60,66, 124,60, 36,66, 129,0 

35 DATAB1 56,60, 126, 127,153, 126,253, 120 

36 DATAGB,24 ,60,60,24,126,90,24,60 

37 X=381 Y=17:Mi=23:N2=1:51=20:52=14:61=15:82=12: 

Wi=31:4W2=233 T1=0: T5=500-TM 

38 D=0:U=0 

39 REM SPIELFELD 

40 SCHELR 

41 L$=SIR$(LE) 

42 CHARI,O,1,"TSPACE2 RED SPACEYPYRAMIDID.BLUE 3 

U SI SPACEIS REDILEVEL"+L$ 

43 CHAR1,0,2," SPACE D.BLUE SU SC9 SK SPACE4 BERN 
SPACE C43 SPACE Cr#% 

na EHARL,O,S„"ED.BLUE SPACE 5% SK SPACEIS BRN SP 
ACE Cr3 SPACE C+3 GREEN}IPHASE" 

AS CHAR1,O,4,"SPACEIS BRN 645 SPÄCEL C+2 

a6 CHAR1,0,5,"tD.BLUEITCHHITE SA D.BLUE}) SPACE} 
1FBSHSPACE?BYISPACE BERN SPACE3 [45 SPACE Cr2 SPA 
CE C+2 SPACE4 BLUEISCORE" 

47 CHAR1,O,5,"{SPACEI3 BERN [47 SPACE C#2 SPACE C 
ar" 

42 CHAR1,0,7,"IYL.GRNFEABLE-SOFTISPACE ERN SPACE 

2. C+2 Cr2 SPACE Cr4 SPACESICLIMBING 


<92> 
<118> 
<a4> 
<85> 
<1889> 
<1835> 
<234> 
<226> 
<215> 


<22> 
<222> 
<17977 
<246> 
<74> 
<215> 


<188> 
<228> 
<125> 
<153> 
<133> 
<177 
<120> 
<109> 
<95> 
<47> 
“136> 
<240> 
<B&> 
<221> 
<97> 
<75> 
<158> 
<177> 
<158> 


<166> 
<220> 
<93> 


<177> 


<192> 
<147> 
<160> 
<as> 
<935> 
<75> 
<148> 
<91> 
<87> 
<150> 
<118> 
<232> 
<&0> 
<105> 


<70> 
<118> 
<247> 
<16> 
<15B> 


<150> 


<73) 
<11> 
<149> 
<37> 
«245> 


49 CHARI „0,8, "(SPACEII C+4 SPACE WHITE SA BRN C4 
3 SPACE Cr#2 SPACE Cy6}" 


50 CHAR1,0,9," (SPALEIL C+4 SHIFTSPACE C+4 SPACE 
C+2 SPACE2 C45}7” 

SI CHAR1,0,10,"T £Cr5 SPACES Cr SPACE E93 S 
PACE PURPLE SX BERN C+ 

52 CHAR, AR1,O,11,"(SPACEP C+S SPACE Cr3 SPACE C+ 3P 
BCE Cr“ 

53 CHAR1,0,12,"XSPACE? C#+3 SPACES C+3 SPACE Cr & 
PACEI C+57" 

54 CHAR1,0,13, "SPACE? 643 SPACE C+3 SPACE C43 8 
PACE C+ SPACE Ce6 SPACE CYAN 5X BRN ces” 

59 CHAR1,0,14,"ISPAGES 093 SPACE (#3 D.BLUE SX B 
RN Cr3 WHITE SA BRN Ce8 WHITE SA SPACE BRN C27>" 
56 CHAR1,0,15,"t c+31}" 

57 CHAR1,0,1&,"{SPACEZ C+3 SPACE2I C+ 

SB CHAR ,0,17,"SPACESI C#3 SPACE# Cr6 SPACES CHE 
SPAGES RIUKIRRMeHTERN Cr 

57 CHAR1,0,18,"{SPACE C+3 SPACEB Cr SPACE? Cr4 8 
PACE2 C+2 SPACE2 PINKY#RREHTERN Cr 

60 CHAR1,0,19,"XSPACE C+ SPACE4 Cr SPACES CH SPA 
CEI1 Cr2 SPACEZ C# SPACEZ PINKI#RHISPACES BRH C4 
&1 CHAR1,0,20," SPACE C* SPACES Cr Cr# SPA 
CE11 C+2 SPACER C£ SPACEFZ PINK TSPACE4 BRN Cr 
62 CHAR1 ,OJZI,"ISPACE C+ SPACE C+# SPACES Cr SPA 
CE@B Ca SPACEIO PINKIwnntSPACE PURPLEIHATSPACE BR 


N cr 

63 EHARI „0,22,"tSPACE C+ C+ SPACEI4 C# SP 
ACE1O PINKI"""CSPÄCE PURPLEYMWISPACE BRN Cr 

64 CHAR1,0,23,"{SPACE C#+ SPACE3O PINKI#R#SPACES 
BRN Cr 


Cr 
CHARI „0,24, "SPACE Cr38r" 
CHAR1 435,34" (SPACEI 1" 
FOKE4071,102 
REM PHASE 1 
J=J0Y 11) 
GETAS:IF At="tSPACEI"THENGETKEYB$ 
1FJ=7 THENP=P+115=8+501B0SUB84 
T9=18-1: IFTS=OTHENF7 
PRINT" (RED} " :P$=STR$ (P) :CHAR1,35,5,P$ 
CHAR1 X, Yy "BLUE 852" 
IFX=Z0ANDJ=STHENGOSUBLOS 
ZS= INT {RND(1)#ZF)+1 
IFZ8=1 THENA=1 
1FA=1THENCHARI „Mi ,M2, "SPACE?" :Mi=Mi+2:CHARI, 


Mi ,M2,"SPACE)I" :M2=M2+2: VOLB: SOUNDS, 10,3: VDLA 
77 1FMi=3S7THENCHARI „Mi ,M2," SPACE)" ıMI=23: N2=lı A 
=o 
IFFEEK (3072+M1+40#M2) =B3THENGOSLUBFT7 
CHAR1 ,M1,M2,"{BRH 50)" 
CHAR1,31,7,"C” 
GDTO&9 
CHAR1,X,Y„"ISPACEI" 
%=X-1: IFPEEK (3072+%+40#Y) =102THENX=X+1 1 YaY-2ı 
%-1 
IFX=-18THENSS 
RETURN 
FORT=1T08 
CHARI1,K VL" ISPACEI”" :X=X-2 
CHAR1 ,X,V„"TBLUE SSI" 
CHAR1,X,Y," SPACE) "1 Vay+2 
CHAR1,X,V"tBLUE 55?" :VOLB: SOUNDS, 1,51 VDL4 
FORF=1 T025+NEXTF 
NEXTT: FORS=800T0400STEP-50 
SOUNDI „5,2:NEXT 
REM VERLOREN 
SENCLR 
FORT=1T0100: BGETAS: AS=" "NEXT 
97 FORV=8TDOSTEF-1 
100 VOLV: SOUNDS,9730,10 
101 NEXTV 
102 EN LITT OL LENTGEAUEIBTETEEACEI NOCH TEERGEEIENN 
ALTSPACEI (J/N) "IASı IFASe"J" THENRUN:G EL. 
103 REM PHASE 2 
104 FORT=1T010 
105 VvOoLs 
105 SOUNDS,800,5 
107 SOUNDS,700,5:VOL4 
108 CHAR1,35,3, "ISPACEIZ" 
107 NEXT 
110 CHAR1,31,7, "tGREEN}THETSPACEITAVE" 
111 Yayıı 
112 CHAR 1,19,0,"{BRN C+37" 
113 CHAR1,17,1,"1Cr33” 
114, J=JOYt1) 
115 GETA$: IFAS=" (SPACE) " THENGETKEYBS 


TARAR=E 


BIFALAN23383F 


Sompute mib 


<1> 
<34> 


<144> 


- 


<a1> 
<213> 


«225> 
<117> 
<207? 
<&8> 

<227> 


<43> 
<B> 
<221> 
<110> 
<113> 
«252> 
<143> 
<50> 


<105> 


<112> 
<220> 
<192> 
<o> 
<243> 
<36> 


<37> 

<181> 
<227> 
<223> 
<178> 
<129> 
<211> 


«535> " 
<234> 
<25> 
<a) 
757% 
<54> 
<138> 
<242> 
<147> 


<1405 
<13> 
<21> 
<180> 
<250> 
<203> 
<a> 
<239 
<140> 
<212> 
<7> 
<41> 
<24> 
<ag> 











11& 


17& 
177 
178 
179 
180 
101 
182 
183 
194 
185 
1B8& 


IFJ=1 THENGOSUB1A2 

IFI=STHENGOSUBLA6 

IFJI=STHENGOSUBLSO 

IF4=7THENGOSUB1S4 

T3=TS-1: IFTS=OTHENF7 

IFPEEK (3072+X+40#Y) =h6THEN9& 

IFPEEK (3072+X4+40#Y ) =4STHENBOSUB1SB 
IFPEEK (3072+X+40%#Y) =BBTHENGOSUBISB 
CHAR1,X,Y„"{BLUE 557" 
IFX=10ANDY=1STHEN15& 

REM SPINNEN BEWEGEN 
IFO=OTHENCHAR1 „51,52, " (SPACE) ":52=82-1 
1FS2=1 THEND=1 

IFO=1THENCHAR? „51,52,"{ORNG SB}"182=52+H1 
IFSZ=14THEND=Q S 
IFPEEK (3072+51+40482) =8STHENGBOSUBF7 
IFU=OTHENCHAR1 „61,62," {SPACE} "1 G2=62-1 
IFG2=&THENU=1 

1FU=1 THENCHAR1 „61 ,82,"tD.BLUE SB}"162=82+1 
1FG2=12THENLI=O 

IFPEEK (3072+81+40*52) =BSTHENGOSLIBI7 
IFPEEK (5072+81440%62) =BSTHENGOSUBF7 
CHAR1,81,852,"tGREEN Sur" 

CHAR1 ,61,82," {RED gV3" 

GOTO11A 

REM MAENCHEN BEWEGEN 
CHAR1 4X, Ya" SPACE)" 

Y-Y-1 
IFPEEK(3072+X+40#Y) = 1O2THENV=Y+L 
RETURN 

CHARI SKY ,"ESPACEI" 

X=X+l 

IFPEEK (3072+K+40#Y) =-102THENX=X-1 
RETURN 

CHAR1 ,%,Y„"TSPACEY" 

Y=Y+1 

IFPEEK (3072+K+40#Y) =102THENYaY-1 
RETURN 

CHARI KV ISRACEI" 

X=X-1 

IFPEEK (3072+X+40#Y) =102THENX"X+1 
RETURN 

CHARI XV" CSPACEI" 

REM GEGENSTAENDE NEHMEN 

VOL: SDUNDZ, 800, 10: VUL4 
P=P+1:Ti=Ti+t 

IFTL=&THENCHAR1 10,15," CSPACEJ® 
PI=SIRE(P) 


"CHAR1 ,35,5,P# 
RETURN 


REN PHASE 3 


7 voLe 


SOLUNDS,800, 10 

FORT=1T0129: NEXT 

SDUNDS,700,5 

FORT=1 10753 NEXT 

SOUNDS, 900,8 

FORT=1TOFSSNEXT 

FORT=BTO1STEP-1 

VOLT+ SOUNDS, 700,5: NEXT: VOLA 
Yayıl 

CHAR1 10,15, "{BRN Cu3" 

CHAR1 ,31,7," REDITREASURY" 

CHAR ,35, 3, "ISPACEIS" . 
J=JoyYtir , 

GETAF: IFASw" (SPACE) "THENGETKEYB$ 
IF3=1 THENGUSUB203 i 
1FI=3THENGOSUB208: P=P+1 
IFI=STHENGOSUB213 
IFJ=7THENGOSUB21B: P=P-1 

IFJ=1 SL ANDPEEK (3072+X+1+40%Y) =42THENCHARI „X+ 


14V," tSPACEI" 


187 


T9=T5-1: IFTS=OTHEN97 

PS=STREP) ECHARI „35,5, P# 

BW=RBW+1: IFBW=Z2THENBW=0:ELSESOTOLF7 

REM RICHTUNG BESTIMMEN 

VOLB: SDUNDS,500,2:VOL4 

IFX >W1 THENBOSUR224 

1FY>WZ2THENGUSUBZ2F 

IFX<WI THENSOSUB2S4 

IFY<W2THENGOBUB23F 

LFPEEK (30724+W1+1+40#42) =102THENGOSUB2294 GOTO 


IFW1=XANDW2=YTHENGOSUBF7 
IFPEEK (3072+X+40#Y) =35STHEN245 
EHARL SKY" TBLUE SS)" 


<1895> 
<228> 
<191> 
<236> 
<13> 
<182> 
<98> 
<1897> 
<163> 
<145> 
<100> 
<183> 
<76> 
<138> 
<105> 
<159> 
<224> 
<144> 
<as> 
<122> 
<164> 
<133> 
<90> 
<193> 
<218> 
<112> 
<94> 
<248> 
<216> 
<31> 
<98> 
<244> 
<200> 
<35> 
<102> 
<252> 
<248> 
<39> 
<106> 
<0> 
<184> 
<a3> 
<110> 
<79> 
<203> 
<aa> 
<1> 
<a0> 
<a2> 
<51> 
<a3> 
<242> 


<200> 
<a2> 
<a2> 
<1> 
<64> 
3) 
<215> 
<180> 
<21> 
<251> 
<86> 
<a6> 
<70> 
<154> 
<233> 
<102> 
<3> 
<142> 


<137> 
<80> 
<239> 
<5> 
<1435> 
«87> 
<12&> 
<184> 
<143> 
<201> 


<37> 

<1356> 
<150> 
<238> 








programme 


CHAR1 „Wi ,W2," {GREENI@" 

GOTO1B0 

REM MAENCHEN BEWEGEN 

EHAR1 Ku Ya" ISPACEI" 

Yay-ı 

IFPEEK (3072+X+40»Y) =102THENY=Y+1 
IFPEEK {3072+X+40#Y) =42THENYeY+1 


RETURN e 
EHARI XV," ISPACEY" 
KoX+1 


IFPEEK {30724X+40#Y) =102THENX=X-1:P=P-1 
IFPEEK (3072+X+40=Y) =42THENX=X-1:P=P-1 
RETURN 

CHAR1,Xy Ya" SPACEr" 

vayıt 2 
IFPEEK (30724X+40#Y) =102THENY=Y—1 
IFPEER (3072+X+40#Y) =42THENY=Y-1 
RETURN 

CHAR1,X,Y„"ISPACEI” 

Kux-t 

IFPEEK (3072+X+40#Y) =10OZTHENX=X+1 
IFPEEK (3072+X+40#Y) =42THENX=X+1 
RETURN 

REM GRABWACHE BEWEGEN 

CHARI „WI ,W2,"CSPACEI" 

Wi=Wi+l 

1FPEEK (3072+W1+404W2) =42THENWI=W1-1 
IFPEEK (30724W1+404W2) =102THENMI=WI-1 
RETURN 

ECHAR1 „WI ,W2,"CSPACEI" 

WZ=W2+1 

IFPEEK (30724W14+40442) =42THENWZ=W2-1 
LFPEEK {35072+W1 +40"NZ) = 102THENWZ=W2-1 
RETURN 

CHAR1 „Wi „W2," CSPAGEI" 

Wi=W1-1 

IFPEEK (35072+W1 +40=4W2) =42THENW2=W2-1 | 
IFPEEK (3072+41 440842) =102THENWI=WI +1 
RETURN 

CHAR1 „Wi ,W2, "tSPACE}" 

W2=W2-1 

IFPEEK {3072+W1+40#W2) =42THENW2=W2+1 
IFPEEK (3072+W1+40=W2) =102THENWZ=H2+1 
RETURN 

REM SPIEL BESCHAFFT 

FORR=1T042 

READS 

VOL&: SOLUNDS,S,S5 

NEXTERESTORE:VOL4 
DATA100,100,500,500 ,600,400,500 
DATA400 ,400,300,300 „200,200, 100 
DATAS00, 300 ,400,.400 ,300,300,200 
DATAS00 ,500 „400,400 4,3004 300,200 
DATA100,100,500,500 ,600, 600,500 
DATA400 „400,300, 300 , 200,200, 100 . 
SENCLR 

TM=TM-80: ZFeZF-1 

PRINT:PRINT:PRINT 

PRINT" <SPACEIS RED}PYRAMID 

PRINT 


PRINT"SPACEIS D,BLUEIUCHHITE SA D.BLUEI) SR 


ADEIBY. 


PRINT"{SPACEIZ [.GRNIEABGLE-SOFT 
PRINT+PRINTE:PRINT 
FOÜRT=1T0100: GETAS: Agar" 

INPUT" PURPLEINAME" ING 
PRINT:PRINT 

IFP<PUTHENZSB 


PRINTNS"ISPACE BLUEISIETSPACEISINDESPACEIMIT 


SPACE} "P" LSPACEIPUNKTENTSPACE) DER (SPACEINEUE (SP 
ALCEIPHARAD SPACE} VONCSPACEIPYRAMID":PÜ=P 

268 PRINT:PRINTN$" (SPACEISIE{SPACEIHABENTSPACEN. 
EVELSPACEF "LE" [SPACEIBESCHAFT" 


269 
270 


PRINT 
LE=SLE+1 


274 PRINT"WOLLENLSPACEISIETSPAGEILEVELTSPAGEI" HL 
Er "CSPACEISPIELEN" 5: INPUTS$ 


272 
273 
274 


27& 
277 
278 


IFLEFT$ (56, 1)="J" THENS7 E 
IFLEFT$(S$,1)="N" THENP=0: 6SOTO15: ELSESOTU274 
FRINT:PRINT:PRINT 


275 PRINT" (ELASHONYWIEXSPACE>BITTECSPACEITTELASH 
arFi" 


6070271 
FOKE 65299 ,208: HELP" 
REM ENDE 


ENDE DES LISTINGS 


Compute miß 


<1898> 
<28> 
<173> 
<155> 
<535> 
<21> 
<209> 
<93> 
x160> 
<50> 
<219> 
<a9> 
<98> 
<165> 
<37> 
<55> 
<242> 
<103> 
<170> 
<&4> 
<249> 
<182> 
<108> 
<77> 
<200> 
<94> 
<B> 
<7> 
<114> 
<205> 
<I6> 
<&2> 
<635> 
<119> 
<210> 
<100> 
<&7> 
<245> 
<124> 
<215> 
<112> 
<as> 
<a5> 
<129> 
<114> 
<190> 
<35> 
<225> 
<249> 
<246> 
<215> 
<58> 
<77? 
<250> 
<219> 
<251> 
<4b> 
<191> 
<51> 


<157> 


4232> 
<B> 

<196> 
<102> 
<143> 


"<226> 


<40> 


<251> 


<196> 
<167> 
<215> 


<216> 
“37> 
<22> 
<208> 


<10%9> 
<107> 
«13> 

<131> 


Programme 


TURBO «= 





Turbo-Load ist ein Floppyspee- 
der für die 1541. Er liegt im Spei- 
cherberech von CDOO_ - 
DOOO und kann somit nur Pro- 
ramme mit einer Länge von 197 
locks einladen. Die 1541 wird 


Turbo-Load mit SYS 52480 und 
abgeschaltet wird er durch Reset 
oder Run-Stop/Restore. Bevor 
man ihn startet muß man 
»NEW” eingeben. Der Basic- 
Loader speichert ein 4-Block lan- 


sc 


Bis zu 7x 
schnellere 


bis zu 6,4 mal schneller als nor- 


ges P: mm ab, das man dann 
mal, dadurch entfallen lästige La- 


absolut (,8,1) lädt und startet wie 
































Fi ti 

dezeiten. Aktiviert wird der oben beschrieben. oppYy ra iönen 
G>54 LISTINB + GHECKSUMMEN (C V1.0) 

10 REM wann a <207> , SG SK SPACE CQ SC CH SPACE SB SPACE SB CD CF 58a 

11 REM a <208> SPACEI SB SPACE SB SPACE ca Sc CH SPACE sB PACE 

12 REM a. ".. <9> SB SPACEZ}Y"3 <&> 

13 REM “u. TURBO-LOAD VERSION 3.1 wer <19> | SO PRINT" (SPACE3 SB SPACE2 SB SPACE SB SPACE SB 

14 REM #n. “.. <11> Sit SPACE2 SB SPACE SB SPACE SR SPACE SB SPACE2 S 

15 REM #*# COPYRIGHT 03,05.85 +### “1305 | B SPACE3 SB SPACE SB SPACE SB SPACE SB SPACE SB 

15 REM nn. u... <13> | SPACE SB SPACE2I" <133> 

17 REM aus BY vr <106> | 51 PRINT"{SPACE3I CE SPACE2 57 SC SK SPACE CE SPA 

18 REM num ld <15> | CE LE SPACE CZ SC SK SPACE SI SC SPACE2 SF SC 

17 REM ne LARS HENNIG “.r “167% | 2 SPACE SY SC SK SPACE CE SPACE CE SPACE CZ SC $ 

20 REM #u# u. <17> | k SPACEZY”"; <165> 

?1 REM "x AND ner “129> | 52 PRINTCHRE (150) "CDOHN3 BIGHT113” <178> 

22 REM ww u... “19> | S3 PRINTCHRE (67) +CHR$ (77) +CHRS (BO) +CHRS (89) +CHR$ 

23 REM wue SDENKE HENNIG nn <98> (82) +CHRE (73) % <247> 

24 REM “nm ner <21> | 54 PRINTCHRE (71) +CHRE# (72) +CHR$ (84) +CHR$ (32) 4CHR& 

25 REM #+# FÜR “.r <b> AP) HCHREISTI <105> 

2& REM #.s ... <23> 55 PRINTEHRE (58) +CHR$ (535) +CHR$ (32) +CHRE (46) +CHRE$ 

27 REM sum THETRONIC n. <130> | (89) +CHRFL1S) <115> 

28 REM ru #r% «25> | 56 PRINT"{RIGHTI4)": <142> 

29 REM une VERLAB un <7> 57? PRINTCHRE# (76) +CHR$ (65) +CHRE (82) +CHRS (03) +CHRE 

30 REM +“ “.r <27? (32) +CHR$ (72) 3 <173> 

31 REM War <228> | SB PRINTCHR$ (69) +CHR# (78) +CHR#$ (78) +CHRE$ (73) +CHR$ 

32 REM la <229> 71) +CHR# 113) «71> 

33 3 <91> | 59 PRINT"{RIOHTI2I": <84> 

34 REM ### PROGRAM <al> | 80 FRINTECHRE (38) +CHR& (32) +CHR$ (83) +CHRS (79) +CHR$ 

35 3 <93> (47) +CHRE (FB); <225> 

356 8=-537291 z REM BACKGROUND <204> | 61 PRINICHRE (75) +CHR# (69) +CHR$ (32) HCHRS (72) +CHRS 

37 F=S3290 : REM FOREGROLND <242> | (HN +CHRSL7W <76> 

=9 PRINTCHR$ (147) <246> | 42 PRINTCHRS (78) +CHR$ (73) +CHRE (71) +CHRS (13) <212> 

37 FOKER,O:FOKEF,O <aA> | 65 PRINTEHRF (SI) "{SPACETIBITTETSPACEIEINELSPACEI 

40 PRINT" YELLOW" : REM GELB <60> | TASTESPACEIDRUECKEN" <164> 

41 PRINTCHRE(1TI+CHRELITI+EHRE (17) +CHRE (17) <244> | 64 POKE198,0:WAIT19B,1:POKE1FB,1 <180> 

42 PRINTCHR$ (17) +CHRFI1TI+CHRS (17) <132> | 65 3 <123> 
3 PRINTCHRE (17) +CHRE (17) +CHR# (17) +CHRE (14) <177> | 66 ı <124> 

44 PRINT" {SPACE 1S>BITTELSPACEIWARTEN" <126> | 57 REM "un" ANLEITUNG A <177> 

45 PRINTCHR$ (1472) <223> | 68 : <126> 

44 GOSUB 10 1: REM MASCHINENROUTINEN . xı10> |69 ı <127> 

A7 PRINTCHRE(147)"CSPACEZ SC ER SC SPACE ER SPAC 79 PRINTCHR$ (147) +CHR$ (30) <123> 

E ER SPACE SU SC SI SPACE CA SC SI SPACE SU SC $ 71 PRINT" DOHNZ SPACE3YANLEI TUNG: " <38> 

I SPACE2 CR SPACEZ3 SU SC SI SPACE SU SC SI SPACE 72 PRINT"SPACEI CT10>" <1&0> 
CA SC SI SPACE2I" <«3> 73 PRINT" (DOHN SPAGE}TURBO-LOADLSPACEIMACHT ISPAC 

49 PRINT"ICSPACE3F SB SPACE2 SB SPACE SR SPACE SB EIDIE SPACE IFLOPPYTSPACEITHA. (SPACEI&.ATSPACEI" <151> 

SPACE SB SPACE SB SPACE SB SPACE SB SPACE SB SPA 74 FPRINT"(DOHN SPACE>MAL{SPACEISCHNELLER. TSPACE} 

GE2 SB SPACE3 SB SPACE SB SPACE SB SPACE SB SPAC NACHLSPACEHRUN-STOPCSPACEIUNDSPALEIRE-—" <103> 

E 5B SPAGE ZB SPACE2Y"; <139> | 75 PRINT"IDOHN SPACEYSTORE CSPACEFTASTECSPACEIKAN 

47 PRINT" ISPACEI SB SPACE2 SB SPACE SR SPACE Ca N{SPACEITURBO-LOADTSPACEIMITLSPACEISYS SPACE)" <47> 


24 Compube mib 





76 PRINT"CDOHN SPACE}S2480 {SPALEIWIEDERTSPACEFAK 
TIVIERT {SPACEIWERDEN. (SPACEIDIELSPACEZI" 

77 PRINT" tDOuNn SPACE} PROGRAMME (SPACE }DUERFEN{SPA 
CEIBISCSPACEIZUTSPACE RVYSONY1FTLRVSOFF SPACEIBLO 
ECKE” 

78 PRINT"tDOHN SPACEIBETRAGEN, tSPACE>IWEILLSPACEI 
SIE{SPACEISONSTSPACE+TURBO-LONDTSPACEI " 

77 PRINT"(DOHN SPACE) UEBERSCHREIBEN{SPACE) WUERDE 
NISPACEF!" 

80 PRINTCHRS 129) "CDAUNZ SPACEIBITTELSPACEIDISKE 
TTEtSPACEIEINLEGENLSPACEIUNDISPACE RUSDNIRETURNT 
RUSOFF}" 

81 PRINT" IDRUEEKEN. " 

82 GETAF: IFAS<>CHRF II) THENB2 

83 605UB8Y7 

er 
85 ı 
86 REM 
87 : 
BB : / 

87 POKEB59 ‚84: POKEB70 ‚85: POKEB71 „824 PDKEB72, 661 P 
OKE8B73,79: POKE874 ‚495: POKEB75,76 

70 POKEB76,79ı: POKE877 „65: POKE878, 68: POKEB79 ,32:P 
DKEBB0 , 86: POKE&B1 „51 :POKEBB2,45 

71 POKEBB3,49 

72 PRINTCHRS$ (147) +CHRS$ (154) ( 

75 PRINT" DOHN SPACEIDER {SPACE>INUN{SPACE}ABGESPE 
ICHERTE{SPACEFTURBO-LOAD SPACE" 

94 PRINT" (DOHN SPACEIMUSSTSPACEIMITTSPACH) ' „B,1" 
tSPACEIGELADENTSPACEIUNDSPACEIMITISPÄCEI" 

95 PRINT" (DOWN SPACE RVSONIBYSTSPACEIS24BOCRVSOF 
FE SPACEIAKTIVIERTTSPACEIWERDEN, " 

96 PRINT" (DOHN 'SPACEIVORtSPACEIDEMTSPACEISTARTEN 
{SPACE RYSON) 'NEW' {RVSOFF SPACEIEINGEBEN" :SYSB32 
97 PRINTCHR$ (158) " (DOHNS SPÄCE2IVIELTSPACEISPASS 
tSPACEIBEIMTSPACEISCHNELLERENTSPAGEILADENTSPACEI 
ym 


98 PRINTCHRS (1597) " (DOWNZ SLACETIBYISPACEYLARS{SP 
MLEIMLSPACEISOENKE 

77 FORX=0TDA000: NEXT 

100 POKEB,24&1 POKEF ‚254: PRINTCHR# (147) +UCHR& (154) 
:END 

101 FORI"524807053247:READA:POKEI,A 

102 P=P+A 

103 NEXT 
104 ı 
105 a 
106 REM 
107 REM 
108 REM 
107 REM 
110 : 
111 a 
112 IFF< 2879704 THENPRINT"DATA-FEHLERTSPACE) u 
113 IFP=89904THENGOSUB1 97: RETURN 

114 END 
118 a 
116 3 
117 REM 
118 : 
119 : 
120 DATA169,0,191,0,208,169,75, 141,1 

121 DATA208,167,56,191,2,208,167,208,141,3,208 
122 DATN167,131,141,2,3,169,164,141 ,3 

123 DATAS,S2,213,207 ,96,0,0,0,0,0,0,0,0,0,0,169 
124 DATN3,133,49,32,10,245,80,254, 184 

125 DATA173,1,28,153,0,5,200,208, 244,160, 186 

125 DATABO,254,184,173,1,28,153,0,1 

127 DATA200,208,244 ,32,224,248, 165,56,197,71,240 
128 DATAS,159,4,76,105,249,32,233,245 

129 DATA197 ,58,240,5,159,5,76,105,249,173,0,3 
150 DATA240,42,162,0,189,0,3,32,134,& 

131 DATA232,208,247,173,0,3,197,12,208, 12,173 
132 DATA1,3,133,13,173,0,3,133,12,208 

153 DATA154,133,12,173,1,3,133,13,169,1,76, 105 
154 DATA2497,162,0,258,1,3,1899,0,3,32 

135 DATA1354,6,252,256,1,3,208, 244 ,169,127,76,105 
156 DATAZ49,0,0,0,0,0,0,133,133,44,0 

137 DATAZ4,16,251,169,16,141,0,24,44,0,24,48,251 
138 DATA169,0,6,1353,42,10,6,133,42,10 

1597 DATA141,0,24,169,0,6,133,42,10,6,133,42,10 
140 DATA141,0,24,169,0,6,133,42,10,& 

141 DATAISS,42,10,141,0,24,169,0,5,133,42,10,6 
192 DATA133,42,10,141,0,24,234,234,234 

195 DATA189,15,141,0,24,96,0,32,0,193,165,24 

144 DATA156,25,133,12,134,13,191,0,3 

145 DATA142,1,35,169,224,133,3,165,3,49, 252,201 


#### ABSPEICHERN ww 


VEBERPRUEFEN, OB EIN 
FEHLER IN DEN DATA'S 
. AUFGETRETEN IST ODER 
NICHT! 


“„"* TURBO-LDAD DATA’S wer 





<227> 


<72> 
<162> 


<33> 


<110> 
<194> 
<13> 

<251> 
<142> 
<143> 
<38> 

<145> 
<146> 


<115> 


<12> 
<121> 
<158> 


<10&> 
<171> 
<202> 
<50> 


<57> 


<112> 
<&E0> 


<249> 
<247> 
«2473 
<233> 
«162> 
<163> 
<12> 
<133> 
<84> 
<198> 
<168> 
<169> 
<85> 
<128> 
<242> 
<173> 
<174> 
<50> 
<176> 
<177> 
<107> 
<113> 
<2> 
<131> 
<8> 
<32> 
<30> 
<113> 
<28> 
<231> 
<197> 
<123> 
<65> 
<132> 
<212> 
<219> 
<65> 
<181> 
<197> 
<120> 
<129> 
<204> 
<169> 
<189> 
<232> 
<126> 


1465 
147 
148 
1497 
150 
151 
152 
153 
154 
155 
156 
197 
158 
159 
160 
161 


182. 


165 
164 
165 
166 


167 
168 


169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
101 

182 
185 
ı84 
185 
106 
197 
188 
187 
190 
191 

192 
193 
194 
195 
174 
197 
178 
1997 
200 
201 

202 
203 
204 

2089 
206 
207 
208 
209 
210 
211 

212 
213 
214 
21s 
71a 
217 
218 
217 
220 


programme 


DATA2,144,244,201 ,127,240,3,76, 10 
DATA230,76,158,193,0,0,0,0,169,11,141,0,221 
DATA173,0,221,16,251,169,3,141,0 
DATA221,32,114,206,234,234 ,234,173,0,221,10 
DATAB, 10,38,164,40,39,164,173,0 
DATA221,10,8,10,38,164,40,38,164,173,0,221 
DATA10,8,10,58,164,40,38,164,173 
DATAO.221,10,8,10,38,164,40,38,164,165,164 
DATA73,295,96,234 ,234 ,234 234,234 | 
DATA234 ,96,32,94,206,133,174,32,44 206,133 
DATA175,165,2,208,8, 165,195, 133 

DATA174 ,169,196,133,175,96,0,0,0,0,0,0,0,0 
DATA133, 147,160,0,177,187,201,36 Ä 
DATA208,3,76,167,244,169,8,133,184,32,1 
DATA245,32,231,255,166,185,134,2 
DATA169,96,133,185,32,192,255,169,186,32,7 
DATA237,165,185,32,199,237,32,19 
DATA238,165,185,32,195,255,165,144,74,74,144 
DATAS,76,4,247,32,210,245,169,44 
DATA133,3,169,205,133,4,169,0,135,5,169,6 
DATA133,6,165,196,32,12,237,169 


DATA111,32,185,237,169,77,32,221,237,169,45 
DATA32,221 ,237,169,87 ,32,221 4,237 


DATN165,5,32,221 ,237,165,6,32,221 ,237,169 
DATAS2,32,221,237,160,0,177,3,32 
DATA221,237,200,192,32,144,246, 32,254 ,237 
DATA24 ,165,3,105,32,133,3,144,2 
DATAZ30,4,24,165,5,105,32,133,5,144,2,230,6 
DNTA166,6,224,7,144,173,234,234 

DATA234,234 ,165,186,32,12,237,149, 111,32, 185 
DATA237 ,169,77,32,221,237,169,45 

DATAS2,221 ,237,169,69,32,221,237,169,213,32 
DATA221 ,237 ,169,6,32,221 ,237,32 

DATA254 ,237 ,173,17,208,41 ,239,141,17,208,120 
DATA162,4,32,44,206,240,33,22,44 
DATA206,224,2,240,3,32,121,206,160,0,32,44 
DATA206,145,174,2350,174,208,2,230 
DATA175,232,208,242,162,2,209,221,234,234 
DATA234,32,44 ,206,224,2,240,5,72 
DATAS2,121,206,104,170,202,202,160,0,32,44 
DATN205,145,174,230,174,208,2,230 
DATA175,202,208,242,165,186,32,12,237,169 
DATA111,32,195,237,169,73,32,221 

DATA237 ,32,254 ,237,173,17,208,9,16, 141,17 
DATA208,165,174,164,175,24,96,169 
DATN152,141,48,3,169,206,141,49,3,96,234 
DATA234 ,234 ,234 „234 „234 ,234,234 

DATAZ34 ,234 „234 ,234 234,234 ,234 ,234 ,234,234 
DATA234 ,234 ,234 „234 ‚234 234,234 

DATA234 „234 ‚234 ,234 ‚234,234 ,234 


£ 
REM ENDE DES TURBO-LOADER'S 


I 

FORZ=832T0868: READY: POKEZ „Y:NEXT: RETURN 
’ 

1 
REM 


ı 
DATA169,001,162 
DATAOOB, 169,235 
DATA0S2,186,255 
DATN169 ,015,162 
DATA101,140,003 
DATAO32, 199,235 
DATA169,000,133 
DATA2S51 ,169,205 
DATALI3,252,162 
DATAO00 , 160,208 
DATA234 , 167,251 
DATAOS2, 216,255 
DATAOF& 


#rr* SAVER DATA’S wre 


Li 
REM ENDE DES SAVER’S 
D 


ENDE DES LISTINGS 





‚echt Turbo! 


Gompute nie 


<168> 
<189 
<196) 
<1633 
<24> 
<66> 
<9b> 
<24> 
<27> 
<2363 
<22> 
<5n> 
“a1> 
<1513 
<29> 
<112> 
<a7> 
<65> 
<128> 
<53> 


<82> 
<> 


<165> 
<206> 
<46> 
<104> 
<36> 
<135> 
<166> 
<201> 
<bA> 
<238> 
<75> 
<167> 
<55> 
<204> 
<49> 
<80> 
<62> 
<182> 
<53> 
<93> 
<79> 
<100> 
<232> 
<214> 
<138> 
<d&> 
<190> 
<191> 
<254> 
<250> 
<o> 
<> 
x2> 
<3> 
«22> 
<5> 
<6> 
<aR> 
<168> 
<144> 
«B6> 
<230> 
<171> 
<21> 
<«110> 
<74> 
<53> 
<126> 
<110> 
<63> 
<20> 
<230> 
<22> 





gt 


programme 


BER 
IRQ-Routine 


Wer schon einmal eine Dateiver- 
waltung o. ä, selbst geschrieben 
hat, wird sich sicherlich schon 
über das Scrollen des Bildschirms 
nach oben geärgert haben, denn 
er erste Zeile mit dem ieh 
igen) Copyright-Vermer 

ü SR ae 1 ae geht 
bei fast jeder Eingabe flöten. Sol- 
> Pro Kar treten mit ey 

einen Maschinenprogramm (ca 
40 Bytes) nicht auf. Es ıst vollstän- 
dig in den IRQ (Interrupt) einge- 


baut, der jede 60tel Sekunde auf- 
gerufen wird. Der Text, der in die 
oberste(n) Zeile(n) aufgerufen 
werden soll, ist variabel und liegt 
im Bereich ab 49192 aufwärts, 
Die Anzahl der auszugebenden 
Zeichen vom Text müssen Sie in 
Speicherstelle 252 POKEn. Die 
Farbe des Textes können Sie auch 
verändern: 

Sie brauchen den Farbcode (0 = 
schwarz, 1 = weiß, 2 = rot, usw.) 
des Textes nur in Speicherstelle 








Fragen zu den Listings steht Ihnen unsere Programmierabteilung für tele- 
ische Anfragen zur Verfügung. Bitte wählen Sie nur diese Nummer und rufen 
nur zu den angegebenen Zeiten an: Moniug-Freitag, 14-16 Uhr! 


05651/30013 


251 zu schreiben. Noch ein Tip 
am Schluß: Damit das Eingeben 
nicht mühselig ist, können Sie 
sich folgenden Trick bedienen: 


(1) - Bildschirm löschen 
(2)-Den gewünschten Text in 









die obersten Bildschirmzei- 
len schreiben. 

(3) - Eingeben: FORI= 0T0255: 
POKE 49192+1,PEEK (1024 
+D): NEXT (Return) 

(4) - Einen Moment warten und 
schon kann’s losgehen. 


0-64 LISTINGS + CHECKSUMMEN (C V1.0) 


100 ELR:FORI=49152T0491F71:READX:POKEI „Xı PE=PS+Xr 


NEXT 


<145> 


110 IFNS<>5025THENPRINT"FEHLER{SPACEI INTSPACEIDA 


TASISPACE}! "SEND 


<105> 


120 FRINT"OKSPALCEI-SPACEISTARTISPACEIMITLSPACE 


2 ’SYSISPACEY4F1S2'"ı1END 


170 DATAI20,169,13,141 ,20,3,169,192,141,21,3,08, 


26,165,252,201,0,240, 


18,160 


<231> 


140 DATAO,185,40,192,153,0,4,165,251,153,0,214,2 


00,195,252,200,240,76,49,234 


ENDE DES LISTINGS 


<sab> 





RYLAN 





Hallo! 


Dies ist also das ‚erste Programm, 


dem UMH-SYS noch eine abso- 


lut winzige M/C-Routine, die 
das Scrolling des Hintergrundes 
bewirkt. Tegliche Spriteverwal- 
tung wird mit dem UMH-SYS 


. In achnteilige en 
mit den zur irre ng a 
den Leben zu alien. Die 
zehn Levels haben natürlich 
steigenden Schwi 
RYLAN’s wie ig daß 
ein zweiter Aue 
bahn eines der ea 
liten’ (ahem) Bess kann. 


Die u Kr erfo ie wie folgt: 
- Der G mit einem 


ki in Port 1 gelenkt 


» Der Satellit wird mit einem 
Joystick in Port 2 gelenkt 


en 
Le n Igu- 
ren Ba aa Menü indivi- 
duell eingestellt werden. 


Ps: Ex-UMH-System erschien 
in "Compute mit” 12/86! 










programme 





12029 DATA 0, 0, 0, 0, 04 0, 0, 0, 0 <7a> 

12030 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0 <93> 

12032 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <g2> 

12055 DATA 0, 0, Os 0, 0, 0, On 16, 0 <85> 

A 0, 16, 0, 0, 16, 0, 0, 16, 0 <93> 

C-64 LISTING + CHECKSUMMEN {6 V1.0) 129 DATA 3 ae0.0, 9, BB 0 9% 32, 0 <> 

. 0, 32, 0 <17 

0 REM « UNTER "LADER' SPEICHERN tFLOPPY) <56> | 12037 Data 0, 0, 0, 0, 0, 0, 0, 8, 0" er 
1 AS=CHRS (34) <106> | 12038 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0 <92> 
4 PRINT" (WHITE CLEARILOADING, ». BLACK DOHN2> "PO 12040 DATA 0, 0, 0, O5 0, 0, 0, 0, 0 <90> 
KE 33281 ‚03 POKE 53280,0 <128> | 12041 DATA 0, O0, 0, 0, 0, 0, 0, 32, © <57> 
5 PRINT"LDAD"AS"PRE2"AE" ‚" <B0> | 12042 DATA 0, 32, 0, O0, 16, 0, 0, 16, O <89> 
& PRINT" (DOWN4FRUN® <ı3> | 12095 DATA 0, 243, 0, 3, 60, 0, 0, 32, 0 <102> 
7 PRINT" (DOHNZILOAD"AS"PREZ" AS" ‚g" <255> | 12044 DATA 0, 32, O, 0, 16, 0, 0, 16, O <a1> 
B PRINT" {DOWN4>RUN” <15> | 12045 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <95> 
9 PRINT" {UP173" ıPOKESS1 „13: POKES32, 13: POKESSS, 13 12046 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0 <100> 
POKEAS4,13 <7> | 12048 DATA 0, 0, 0, 0, 0, 0, 04 0, 0 <98> 
10 POKE 199,4 <162> | 12049 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <99> 
ENDE DES LISTINGS 12050 DATA 0, 64, 0, 0, 32, 0, 0, 18, O0 <131> 
12051 DATA 0, 116, 0, 0, 184, 0, 1, 32, O <10> 

12052 DATA 0, 16, 0, 0, 8, 0, 0, 0, © <84> 
12053 DATA 0, 0, 0, 0, 0, O0, O, 0, O <103> 
12054 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0 <108> 
12056 DATA 0, 0, Or O4 04 04 0, 0, O <106> 
0, 0, 0, 0, 0, 0, 0, 0, 0 <107> 
C-64 LISTING + CHECKSUMMEN (0 V1.0) 12058 DATA 0, 0,.0, 0, 0, 0, 0, 120, 0 <230> 
12059 DATA 0, 120, 0, 0, 120, 0, 0, 120, O <175> 
© REM VEKTOREN AENDERN ı BASIC-START <236> | 12060 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 $110> 
1 POKE16385,03POKE 16386,0:POKE43, 21 POKE44 „64 NE er EEE S027 
hr <211> | 12062 Data 0, 0, 0, 0, 0, DO, 0, 0, 0,0 <116> 
ie Die rerikake 12064 DATA 0, 0, O, 1, 255, 128, 6, 10, 224 <147> 
12065 DATA 8, 13, 80, 31, 6, 148, 16, 195, 88 <44> 


12056 DATA 63, 1, 252, 32, 252, 4, 33, 47, 194 “146? 
12067 DATA 114, 158, 65, 58, 127, 193, 69, 127, 

193 «297 
12068 DATA 114, 158, 63, 35, 47, 196, 32, 252, 4 <194> 
12069 DATA 63, 1, 252, 16, 195, BB, 31, &, 1658 <50> 
12070 DATA 8, 13, 80, &, 10, 224, 1, 255, 128,0 <140> 





C-64 LISTINGB + CHECKSUMMEN IC V1.0) 12072 DATA 0, 0, 0, 0, 0, 0, 0, 48, © <206> 
12073 DATA 0, 48, 0, O0, O0, 0, 0, 0, © <39> 
o REM nunmmmnmuenn "'RYLAN’ HH <115> | 12074 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <124> 
1 KEM « POSTAL SERVICES * <93> . | 12075 DATA 24, 48, 96, 24, 48, 76, O0, 0, 0 <246> 
zZ REM = WRITTEN BY ı ULRICH MUEHL + <se> | 12076 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <126> 
5 REM = (C) 1986 PARAVISIDN COMPANY # <179> | 12077 DATA 0, 0, 0, 0, 48, 0, O0, 48, 0 <15> 
8 REN #*+EX — UMH — SYSTEM REQUIRED Tun <41> | 12078 DATA 0, 0, 0, 0, 0, 0, 9, 0, 0,0 <132> 
7 REN ER <12> 120080 DATA 0, 0, 0, 0, 0, 0, 90, 76, 0 <4> 
20 PRINT"CGREEN CLEAR RIGHTSIAUF TSPACEIWUNSCHTSP 12081 DATA 0, 964 0, 0, 0, ©, 0, 0, © <57> 
ACEIDERTSPACE} TRONIC-VERLABES" : POKESS280 ,0O: POKES 12082 DATA 0, 0, 0, 0, 0, 0, 0, 0, 96 <a0> 
3281,0 <&b0> 12083 DATA 0, 48, 96, 24, 48, 0, 24, 0, 0 <208> 
30 PRINT"{CYAN RIGHTLIYPRAESENTIERTISPAGCEIVONTSR 12084 DATA 0, O0, 0, 0, 0, 0, 0, 0, 0 <134> 
ACEI:" <39> | 12085 DATA 0, 0, 0, 0, 24, 0, 0, 24, 0 <109> 
40 FRINT"CDOWN RIGNTZ YELLOWIPTSPACEIATSPACEIRIS 12086 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0 <1a0> 
PACEIALSPACEIVSPACEIILSPACEISLSPALCEI ILSPACEIOTS 12088 DATA 0, O0, 0, O0, 0, 0, 0, 0, 0 <138> 
PACEINTSPACEZICTSPACEIUTSPACEIMISPACEIPISPACEIAL 12089 DATA 0, 192, O0, O0, 192, 0, 0, 0, 0 <109> 
INLSPALEIY" <165> | 12090 DATA 0, 0, 0, O0, 0, 192, 0, O0, 192 <110> 
SO FRINT"CDOHNS RIGHT1Z REDIRISPAGCEZIYLSPACEZILE 12091 DATA 0, 48, O0, O0, 48, 0, 12, 0, 0 <143> 
SPACEZ)IALSPACEZIN" <144> | 12072 DATA 12, 0, 0, 0, 0, 0, 0, 0, 90 <6> 
100 PRINT"{DOHNS RIGHTIFI YELLONIREADINGSPACEIDA 120935 DATA 0, 12, 0, 0, 12, 0, 0, 6, 0 <228> 
rar" <65> | 12094 DATA O0, 0, 0, 0, 0, 0, 0, 0, 0,0 <148> 
110 FORK=B172T010559ı READDT:POKEX „DTSNEXTX <195> | 12096 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <1a6> 
12000 DATA 0,0,0,0,0,0,0,0,0 <49> | 12077 DATA O0, 0, O0, 1, 128, O0, 1, 128, 0 597 
12001 DATA 0,0,0,0,0,0,0,0,0 <50> | 12098 DATA 0, 1, 128, O0, 1, 128, 0, 0, O <120> 
12002 DATA 0,0,0,0,0,0,0,0,0 <51> | 12097 DATA 0, 48, 0, O0, 48, 0, 0, 0, © <125> 
12003 DATA 0,48,0,0,48,0,0,0,0 <28> | 12100 DATA 6, 0, 0, 6, 0, 0, 0, 5, OÖ <50> 
12004 DATA 0,0,0,0,0,0,0,0,0 <53> | 32101 DATA 0, 6, 0, 0, 0, 0, 0, 0, 0 <175> 
12005 DATA 0,0,0,0,0,0,0,0,0 <54> |12102 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0,0 <156> 
12004 DATA 0,0,0,0,0,0,0,0,0,0 <59> | 12104 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <154> 
12008 DATA 0,0,0,0,0,0,0,0,0 <57> [12105 DATA 0, 0, O0, O0, 0, 0, 1, 128, 0 <179> 
12007 DATA 0,0,0,0,0,0,0,0,0 <se> | 12105 DATA 1, 151, 0, 0, 3, 0, 0, 0, 0 <243> 
12010 DATA 0,0,0,0,0,0,0,16,0 <&1> |12107 DATA 0, 48, 0, 0, 48, 0, 0, 0, 0 <1335> 
12011 DATA O0, 112, 0, O0, 56, 0, 0, 32, © <80> | 12108 DATA 3, 0, 0, 3, 6, 04 0, 5, 0 <88> 
12012 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0 <61> |12107 DATA 0, O0, O0, 0, 0, 0, 0, 0, O0 <159> 
12015 DATA 0, 0, 0, 0, 0, ©, 0, 0, © <62> |12110 DATA 0, O0, 0, 0, 0, 0, 0, 0, 0,0 <164> 
12014 DATA 0, 0, 0, 0, 0, ©, 0, 0, 0,0 <67> | 12112 DATA 0, O0, 0, 0, 0, 0, 0, 0, © <162> 
12015 DATA O0, 0, 0, 0, 0, 0, 0, 0, 0 <65> | 12115 DATA 0, 0, 0, 0, O0, 0, 0, 0, 0 <163> 
12017 DATA 0, 0, O0, 0, O0, 0, 0, 0, © <64> |12114 DATA 0, 12, 0, 1, 140, 0, 1, 128, 0 <86> 
12018 DNTA O0, O0, 0, O0, 16, 0, 0, 16, © <72> |12115 DATA 0, 48, O0, 0, 48, 0, 0, 6, O0 <249> 
12017 DATA 0, 240, 0, 0, &0, 0, 0, 32, © <29> j 12116 DATA 0, 198, O0, O0, 192, 0, 0, 0, © <172> 
12020 DATA O0, 32, Or O0, 0, O0, 0, 0, 0 <207> an eh 0, a 5 > > a a 0,0 7 <167> 
12021 DATA 0, 0, 0, 0, 0, 0, DO, 0, © <70> = 0, 0, 0, 0, 0, 0, 0, 0, 0, <172> 
12022 DATA 0. 0, 0, 0, 0, 0, 0, 0, 0,0 <73> |42120 DATA O0, 0, 0, 0, 0, 0, 0, 0, © <170> 
12024 DATA O0, 0, O0, 0, 0, 0, 0, 0, © <73> |12121 DATA 0, 0, 0, O0, 24, 0, O0, 24, © <145> 
12025 DATA O0, 0, 0, 0, 0, 0, 0, 0, O0 <74> |12122 DATA 0, 0, 0, 0, Q, 0, 6, 0, OÖ <0> 
12026 DATA O0, 16, 0, O, 16, O0, 0, 16, O0 <84> 12123 DATA 6, 48, 0, O0, 49, 128, 0, 1, 128 <57> 
12027 DATA 1. 240, O0, 0, 62, 0, O0, 32, 0 <65> |12124 DATA 0, 0, 0, 0, 0, O0, 0, 9%, 0 <a8> 
12028 DATA 0, 32, 0, ©, 32, 0, 0, 0, © <192> | 12125 DATA 0, 96, 0, 0, 0, O0, O0, 0, © <101> 


we Sompube mib 





programme 


12126 
12128 
12129 
12130 
12151 
12132 
17153 
121354 
12135& 
12137 
12158 
12137 
12140 
12141 
12142 
121494 
12145 
12146 
12147 
12148 
12149 
12150 
12151 
12152 
12153 
12154 
12155 
12196 
12157 
12158 
12140 
12161 
12162 
12165 
12164 
12165 
12166 
12168 
12169 
12170 
12171 
12172 
12173 
12174 
12176 
12177 
12178 
12179 
12180 
12181 
12192 
12184 
12185 
12186 
12187 
12188 
12197 
12190 
12192 
12193 
12174 
12195 
12196 
12177 
12198 
20000 
176 
20001 
171 
20002 
71 
20003 
176 
20004 
o 
20005 
192 
20006 
240,0 
20010 
200114 
172 
20012 
6 
20013 
20014 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA: 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0, 0, 0, 0, 0, 0, 0, 0, 0,0 

0, 0, 0, 0, 0,.0, 0, 0, © 

0, #8, O0, 0, 48, 0, 0, 0, © 

0, 0, 0, 0, 0, 0, 0, 0, 0 

ı2, 48, 192, 12, 48, 192, 0, 0, 0 
0, 0, 0, 0, 0, 0, 0, © 

48. O0, 0, 48, 0, 0, 0, © 

0, 0, 0, 0, 0, 0, 0, 0,0 

0, 0, 0, 0, 0, 0, 20, 0 

119, 0, 0, 247, 128, 1, 235, 192 
156, 224, 7, 8, 112, 7, B, 112 
14, 8, 56, 1, 255, 192, 14, 8, 56 
7, 8, 112, 7, B, 112, 3, 136, 224 
1, 235, 192, O0, 247, 128, O0, 119, 0 
0, 20, 0, 0, 0, 0, 0, 0, 0,0 

0, 0, 9, 0, 0, 6, 0, 12, 0 

0, 1411, 0, 0, 239, 128, 1, 243, 192 
3, 144, 224, 7, 16, 112, 7, 16, 112 
14, 11, 192, 14, 28, 56, 1, 232. 56 
7, 4, 112, 7, 4, 112, 3, 132, 224 
1, 251, 192, 0, 251, 128, O0, 123, © 
0, 24, 0, 0, 0, 6, 0, 0, © 


DATA 0 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Data 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
Datn 
DATA 
Data 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 


DATA 
DATA 


0, 0, 0, 0, 0, 0, 0, 28, 0 

0, 95, 0, 0, 225, 128, i, 227, 192 
3, 160, 224, 7, 16, 112, 7, 16, 192 
14, 11, 56, 14, 28, 56, 14, 104, 36 
1, 132, 112, 7, 4, 112, 3, 130, 224 
1, 227, 192, 0, 255, 128, O0, 125, 0 
0, 28, 0, 0, 0, 9, 0, 0, 0,0 

0, 0, 0, 0, 0, 0, 0, 28, 0 

0, 63, OÖ, 0, 191, 128, 1, 163, 192 
3, 192, 224, 7, 32, 128, 7, 17, 112 
14, 10, 56, 14, 28, 56, 14, 40, 56 
7, 68, 112, O0, 130, 112, 3, 129, 224 
1, 226, 192, 0, 254, 128, O0, 126, 0° 
0, 28, 0, 0, 0, 0, 0, 0, 0,0 

0, 0, 0, 0, 05.0, 0, 28, 0 

0, 127, 0, 0, 255, 128, 0, 227, © 
2, 128, 224, 7, 65, 112, 7, 34, 112 
14, 20, 56, 14, 8, 56, 14, 20, 56 
7,:34, 112, 7, 65, 112, 3, 128, 160 
0, 99, 128, 0, 255, 128, 0, 127, 0 
0, 28, 0, 0, 0, 0, 0, 0, 0,0 

0, 0, 0, O0, 0, OD, 0, 28, © 

0, 126, 0, 0, 254, 128, 1, 226, 192 
3, 129, 224, 0, 130, 112, 7, #8, 112 
14, 40, 56, 14, 28, 56, 14, 10, 56 
7, 17, 112, 7, 32, 128, 3, 192, 224 
1, 165, 192, O0, 191, 128, 0, 63, O 
0, 28, 0, OÖ, 0, 0, 0, 0, 0,0 

0, 0, 0, 0, O0, 0, 0, 28, O 

0, 125, 0, 0, 253, 128, 1, 227, 192 
3,.130,..224, ,7,.4,.4112,.1, 432, 112 
14, 104, 56, 14, 28, 56, 14, il, 56 
7, 16, 192, 7, 16, 112, 3, 160, 224 
1. 227, 192, O0, 223, 128, 0, 95, 0 
0, 28, 0, 0, 0, 0, 0, 0, 09,0 

0, 0, 0, 0, 0, 0, 0, 24, 0 

0, 123, 0, 0, 251, 128, 1, 231, 192 
3, 132, 224, 7, 4, 112, 7, 4, 112 
1, 232, 56, 14, 28, 56, 14, 11, 192 
7, 16, 112, 7, 16, 112, 3, 144, 224 
1, 245, 192, 0, 239, 128, 0, 111, © 
0, 12, 0, 0, 0, 0, 0, 0, 0,0 

255, 252, O, 234, 171, 192, 234, 170, 


234, 170, 172, 235, 254, 172, 235, 3, 


235, 5, 171, 235, 35, 171, 235, 254, ı 


234, 170, 172, 234, 90, 172, 213, 86, 


215, 215, 192, 215, 215, 0, 215, 215, 


215, 95, 192, 215, 53, 192, 215, 53, 


215, 15, 112, 218,.13, 112, 255, 15, 
235, 0, 63, 235, 0, 59, 235, 0, 59 
58, 192, 235, 58, 192, 235, 14, 179, 
14, 179, 172, 3, 174, 176, 3, 170, 17 
0, 234, 192, 0, 239, 192, 0, 229, 192 
3, 87, 0, 3, 87, 0, 13, 92, 0 


<180> 
<178> 
<155> 
<180> 
<77 > 
<182> 
<159> 
<198> 
«102> 
<bB8> 
<a5> 
“61> 
<51> 
<134> 
<156> 
<128> 
<18> 
<108> 
«77> 
<165> 
<162> 
<88> 
<137> 
s254> 
<203> 
x62> 
<987 
<222> 
<29> 
«212> 
<b> 

<211> 
<5> 

<254> 
<2> 

“73> 


"«220> 


<14> 
<190> 
<1977 
<156> 
«227> 
<65> 
<228> 
<22> 
“67> 
<63> 
“216> 
«773 
<14> 
“2356> 
<30> 
<79 
<180> 
x96> 
<189> 
«93> 
<244> 
<226> 
<182> 
<189> 
<104> 
<182> 
<248> 
<218> 


<a9> 
<164> 
<202> 
<223> 
<36> 
<1835> 


<55> 
<2535> 


<158> 
<106> 


<201> 
<237> 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 


DATA 
DATA 


20042 
2, 255 
20043 


DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
187 

20092 DATA 
5, 171 

20085 DATA 


0, 175 
DATA 

DATA 

DATA 


15, 92, 0, 55, 112, 0, 53, 112, 0 
215, 192, 0, 2135, 192, 0, 255, 192, 0 


253, 
235, 
235, 
235, 
215, 
215, 


235, 0, 
235, 0, 
235, 0, 
219, 0, 215, 0, 
215, 0, 0, 215, 0, 

m. 252, 2153, 85, 92, 315, 85, 


0, 
0°, 
0%, 
5 


235, 0, 
235, 0, 
235, 0, 


990900 


215, 85, 92, 213, 85, 92, 255, 255, 2 
0, 60, 0, ©, 235, 0, O0, 235, © 

0, 235, 0, O0, 235, 0, 3, 170, 192 

3, 190, 192, 3, 190, 192, 3, 190, 192 
14, 190, 176, 14, 166, 112, 13, 85, 1 
15, 125, 112, 53, 195, 92, 53, 195, 9 
55, 195, 92, 55, 195, 92, 215, 
215, 


0, 215 
0, 215, 215, O0, 215, 255, 0, 255 


255%, 
235, 


0, 255, 235, O0, 258, 235, 0, 235 
0, 235, 234, 192, 235, 234, 192, 


254, 176, 235, 235, 176, 235, 235, 17 


255, 220, 219, 215, 215, 215, 215, 55 
55, 87, 215, 13, 87, 218, 13, 87 
3, 87, 215, 35, 87, 215, 0, 215 

0, 215, 215, 0, 215, 255, 0, 255 


215, 
215, 
2195, 


243, 
147, 
194, 
146, 


224, O0, 146, 24, 0, 146, 4, 0 
194, 0, 144, 34, 0, 144, 17, 0 
17, 0, 144, 34, 0, 147, 194, 0 
4, 0, 146, 24, 0, 147, 224, 0 
144, 0, 0, 144, 0, 0, 144, 0, 0 

144, 0, 0, 144, 0, 0, 240, 0, 0 

0, 0, 0, 0, 0, 0, 0, 0, 0,0 

240, 3, 192, 144, 2, 64, 144, 2, 64 
72, 4, 128, 72, 4, 128, 72, 4, 128 
3b, 9, 0, 36, 9, 0, 36, 9, 0 

18, 18, 0, 18, i8, 0, 18, 18, 0 

9, 36, 0, 9, 36, 0, 9, 36, O 

6, 72, 0, &, 72, 0, 6, 112, 0 

0, 0, 0, 0, 0, 0, 0, 0, 0,0 

0, 63, 128, 7, 32, 128, 25, 32, 128 
33, 65, 128, 71, 0, 0, 72, 0, © 

72, 0, 0, 144, 0, O0, 144, 0, 0 

144, 0, O, 144, 0, 0, 144, 0, 0 

144, 0, 0, 144, 0, 0, 72, 0, 0 

72, 0, 0, 71, 0, 0, 35, 63, 128 

25, 32, 128, 7, 32, 128, 0, 63, 128,0 
0, 0, 0, 0, 0, 0, 0, 0, 0 
255, 255, 255, 250, 170, 175, 238, 17 


235, 170, 235, 234, 235, 171, 234, 25 


235, 190, 235, 238, 170, 187, 250, 17 
25%, 255, 255, 
0, 0, 0, 0, 0, 0, 0, 0, © 

0, 09, 0, 0, 0, 0, 0, 0% 0,0 

0, 0, 0, O0, 285, 255, 3, 170, 170 
14, 170, 170, 14, B&, 86, 254, 154, 1 


0, 0, 0, 0, 0, © 


2594, 154, 86, 14, 154, 90, 14, 154, 1 
14, 170, 170, 14, 102, 86, 14, 102, 1 
14, 102, 90, 14, 102, 106, 254, 154, 
254, 170, 170, 14, 85, 85, 14, 170, i 
3, 170, 170, 0, 255, 255, 0, 0, 0,0 

0, 0, 0, 255, 255, 255, 170, 170, 170 
170, 170, 170, 154, 90, 101, 102, 102 
102, 102, 102, 102, 102, 102, 154, 10 
170, 170, 170, 86, 106, 154, 102, 106 
86, 106, 86, #0, 1064, 102, 102, 86, 1 
170, 170, 170, 85, 55, 85, 170, 170, 


Compubs mib 


<168> 


<27> 

<182> 
<177> 
<178> 
<167) 
<114> 


<ı> 


<14> 
<121> 
<212> 
<3> 


<92> 


<31> 
<186> 


<75> 
<3> 


<118> 
<154> 


<102> 
<159> 
<250> 


<as> 
<124> 
<35> 
<189> 
<210> 
«177> 
<116> 
<205> 
<21> 
557 
<28> 
<49> 
<15> 
<120> 
<215> 
<117> 
x55> 
<71> 
<196> 
«57> 
<627 
<244> 
<225> 


<B> 
<28> 
<190> 
<114> 
<230> 
<235> 
<77> 
63 
<135> 
<20B> 
“923 
35 
<7> 
<207> 
<19> 
<76> 
<970> 


<51> 








170 
20106 
‚Oo 
20110 
20111 
20112 
20113 
20114 
20115 
z0116 


DATA 170, 1790, 170, 255, 255, 255, 0, 0, 0 
para 
DATA 
DATA 
DATA 
DATA 


0, 0, 0, 255, 192, 0, 170, 176, © 
170, 172, O0, 106%, 172, 0, 170, 172, Ö 
165, 172, 0, 170, 172, 0, 106, 172, 0 
170, 172, 0, B6, 172, O0, 106, 172, 0 
86, 172, 0, 102, 172, O0, 86, 172, 0 
DATA 170, 172, 0, 85, 108, O0, 170, 172, 0 
DATA 170, 176, 0, 255, 192, 0, 0, O0, 0,0 
31998 FOR X=12288T0 13823:READ DTEPOKE X,DTSNEXT 
31999 FOR X=122887012286+1024: PDKEX+1024 ,255-PEE 
KIKIENEXT X 

32000 DATA219,219,24,255,255,24,219,219,0,44,102 
„110,102,102,102,0,108,102,102 

32001 DATALOB,102,102,108,0,44,102,96,96,96,102, 
44 ,0,104,100,102,102,102,108 

32002 DATA104,0,110,76,96,104,76,96,110,0,110,96& 
+96, 104,96496,7640,44,102,96 

32003 DATA110,102,102,44,0,102,102,102,110,102,1 
02,102,0,44,8,8,8,9,8,44,0,14 

32004 DATA12,12,12,12,108,40,0,102,108,104,96,10 
4,108,102,0,96,96,96,96,96,9& 

32005 DATA110,0,98,102,110,106,99,99,99,0,102,10 
2,110,110,110,102,102,0,44,102 

32006 DATA102,102,102,102,44,0,100,102,102,108,9 
6,976,976,0,44,102,102,102,102 

32007 DATA44,14,0,108,102,102,108,104,108, 102,0, 
44,102,76,44,6,102,44,0,110,8 

32008 DATAB,8,8,8,8,0,102,102,102,102,102, 102,44 
»0,102,102, 102, 102,102,44,8,0 

32007 DATA78,78,98,106,111,103,99,0,102,102,44,8 
„44,102,102,0,102,102,102,44 

32010 DATAB,B,8,0,110,6,12,8,32,96,110,0,44,32,3 
2,32,32,32,44 ,0,12,2,32,108,32 

32011 DATA9B,236,0,44,12,12,12,12,12,44,0,0,8,44 
‚110,8,8,9,8,0,0,32,110,111,32 

32012 DATAO,0,0,0,0,0,0,0,0,0,8,8,8,8,0,0,8,0,10 
2,102,102,0,0,0,0,0,255,4,4,4 

32013 DATA253,32,32,32,129,192,224,240,248,252,2 
59,299,24,54,120,248,248,120,56 

32014 DATA24,165,56,231,0,0,231,36,165,6,12,8,0, 
0,0,0,0,12,8,32,32,32,8,12,0,32 

32015 DATAB,12,12,12,8,32,0,0,102,44,239,44,102, 
0,0,0,8,8,110,8,8,0,04,0,0,0,0 

32016 DATAO,A,8,32,0,0,0,110,0,0,0,0,0,0,0,0,0,8 
‘8,0,0,2,6,12,8,32,76,0,44,102 

32017 DATA110,102,102,102,44,0,8,8,40,8,8,8,110, 
0,49,102,6,12.32,96,110,0,44 

32018 DATA102,4,12,6,102,44,0,6,14,14,102,111,6, 
6,0,110,96,108,6,6,102,44,0,44 

32019 DATA102,96,108,102,102,44,0,110,102,12,8,8 
‚8,8,0,44,,102,102,44,102,102 

32020 DATA44,0,44,102,102,46,6,102,44,0,0,0,8,0, 
0,8,0,0,0,0,8,0,0,8,8,32,14,8 

32021 DATA3S2,96,32,8,14,0,0,0,110,0,110,0,0,0,96 
‚B,12,6,12,8,96,0,44,102,6,12 

32022 DATAA,0,8,0,0,0,0,2398,239,0,0,0,0,40,108,2 
39,111,12,46,0,32,32,32,32,8 


320253 DATAG,8,8,0,0,0,259,2357,0,0,0,0,0,239 ,239,° 


0,0,04,0,0,2394239,0,0,0,0,0,0 

32024 DATAO,0,0,239,239,0,0,32,32,32,32,32,32,32 
„32,12,12,12,12,12,12,12,12,0 

32025 DATAO,0,224,224,40,8,9,8,8,12,15,7,0,0,0,0 
192,224 ,232,0404,0,0,192,192 

32026 DATA192,192,192,192,239,239,192,224,96,40, 
12,14,7,3,3,7,14,12,40,96,224 ° 

32027 DATA192,239,239,192,192,192,192,192,192,23 
9,239,3,3,3,3,3,3,0,44, 110, 110 

32028 DATA110,110,44,0,0,0,0,0,0,239,239,0,38,11 
1,111,111,46,12,8,0,96,96,976 

32029 DATA9&,96,76,96,76,0,0,0,7,15,12,8,8,195,2 
31,110,44,44,110,231,195,0,94 

32030 DATA110,102,102,110,44,0,8,9,102,102,8,8,4 
1,0,6,54,5,6546,646,6, 8, 12,46, 111 

32031 DATA45,12,8,0,8,8,8,239,239,8,8,8,192,192, 
32,32,192,192,32,32,8,8,8,8,8 

32032 DATAB,B,8,0,0,3,46,102,38,38,0,239,111,47, 
15,15,7,3,1,0,0,0,0,0,0,0,04224 

32035 DATA224 „224 ‚224 ‚224,224 ,224 ,224 ,0,0,0,0,23 
9,239 ,239 ,239 ,239 ,0,0,0,0,0,0 R 

32034 DATAO, 192,224 ,225,235,207,206,196,192,97,2 
25,225,227,97,98,102,103,197 

32035 DATA199,192,96,96,32,32,224,239,239,32,32, 
32,32,32,32,174,175,35,32,32 

32036 DATA3S,47,46,11,139,203,201,201,200,136,9, 


<18> 
<193> 
<73> 
<119> 
<127> 
<15> 
<175> 
<10> 
<211> 
<252> 
<230> 
<92> 
<> 
<137> 
<200> 
1997 
<98> 
<234> 
<210> 
<233> 
<28> 
<98> 
<129> 
“85> 
<165> 
<125> 
<156> 
<i166> 
<151> 
<200> 
<249> 
<78> 
“253> 
<218> 
<9> 
<182> 
<1053> 
<136> 
<2354> 
<76> 
<107> 
“241> 
<14> 
<173> 
<104> 
<200> 


<o> 





programme 


15131,199,239 ,239 ,238,238,239 

32037 DATA128,128,128,0,0,0,0,0,192,192,192,192, 
0,64,101,69,105,110,108,108,0 

32039 DATAO,40,40,224,40,89,8,0,0,1364,200,32,32,3 
2,32,0,0,0,0,39,39,25,34,0,3 

32029 DATA9,41,9,11,139,11,128,131,135,198,239,1 
97 ,128,7413,0,0413,04,128,0,0 

32040 DATA128,129,128,128,103,1,111,0,0,46,105,4 
6,40,40,42,0,0,238,169,238,232 

32044 DATAL68,138,0,1,3,3,1,0,7,47,239,239,256,2 
24,192,225,224,192,192,172,228 

32042 DATA236,236,192,195,227,227,97,97,100,46,1 
43,190,140,198,198,6,0,0,34,4& 

32043 DATAO,0,0,0,0,0,170,238,0,0,0,0,0,0,0,1,3, 
3,2,0,0,0,232,224,224,40,40,40 

32044 DATA12,12,12,0,0,0,0,0,0,0,195,153,145,145 
‚159,153,195,255,231 ,195,153 

32045 DATA129,153,153,153,295,131,1933,183, 131,15 
3,153,131 ,259, 199,153, 159,159 

2046 DATA159,153,195,255,135,147,153,153, 153,14 
7,135,255,129,159,159,135,157 

32047 DATA159,129,255,129,159,159,135,159,159,15 
9,255,195,153,1599,145,153,153 

32048 DATA195,255,153,153,153,129,183,153,153,25 
5,195,231 ,231 4,231 ,231,231,195 

32049 DATA255,225,243,243,243,243,147,199,255,15 
3,147,135,143,135,147,153,255 

32050 DATA159,157,159,159,159,159,129,255, 156,13 
6,128,149, 156,156, 156,255, 193 


32051 DATA137,127,129,145,153,153,255,195,153,15 ı 


3,153,153,153, 199,259, 131,153 
32052 DATA153,131,159,159,199,255,195,153,153, 15 
3,153,195, 241 ,255,131,153,153 
32053 DATA131,135,147,153,255,195,153,159, 195,24 
9,153,195,255,129 ,231 231,731 
32054 DATA231 „231 ,231,255,153,153, 153,153, 153,15 
3,195,295,153,153, 153,182, 153 
32085. DATA195,231,255,156, 156, 156,148, 128,134, 15 
6,255,153,153,195,231,195,153 
32056 DATA153,255, 193,153, 153,195, 231,231 ,231,28 
5,129,249,243,231,207,139,129 : 
32037 DATA253, 195,207 ‚207 ,207 ,207,207,195,255,24 
3,237 „207,131 ,207,157,3,253, 198 
32058 DATA243,243,243,243,243, 195,255, 255,231,19 
5,129,231 ,231,231,231 ,259,239 
52059 DATA207,128,128,207,239,255,207,239 ,255,56 
,16.0,190,57,214,254,16, 124,121 
32060 DATA16,249,255,248, 254,254 ,252,16,22,251,2 
51,16,215, 164,254 ,222,16,88,244 
32061 DATABS,254,20,255,16,16,121,254,16,254,16, 
224 ,233,0,0,224 ,251,16,16,253 
32062 DATA14,222,16,56,200,232,8,0,0,128,54,128, 
249 ,254 ‚90,234 ,82,80, 254 ,255 
32063 DATA215,114,80,16,121,212,84,253,255,244,2 
54 ,92,64,222,121,215,6,246,251 
32064 DATA254,84,215,116,296,206,118,242,24,222, 
0,121,190,249,249,249 „223,68 
32065 DATAB4,84,249,152,252,251,254,84,84,242,22 
3,214,161,114,251 ,244,246,94 
32066 DATAI20,128,226,226,0,224,96,128,162,224,0 
+226,226,0,221,32,0,252,80,224 
32067 DATN224 ,32,255,121,69,0,226,226,226,96,226 
+226,64,48,0,0,98,66,80,48,98 
32068 DATA96, 255,226, 226,240 ,226,226,48,78,48,22 
6,80,226 ,226 ,226,192,120,224 
32069 DATAZ26,226,104,226,226,0,0,0,0,71,0,240,8 
0,0,32,80,16,80,06,208,164,48 
32070 DATAO,0,0,80,255,82,0,64,0,64,64,255, 16,9% 
‚80,225,112,9,2,56,24,92,48,32 
32071 DATAO,118,160,80,255,80,193,32,32,6,0,242, 
80,80,116,84,16,249,196,3,80 
32072 DATA196,202,152 
41997 FOR X=2049 TO 2093:READ DTIPOKE X,DTSNEXT 
x 
42000 DATN152,8,189,31,49,24,10,144,2,9,1,157,31 
„49,202,139,209,240,230,2,165 
42004 DATA2,41,1,208,230,95,162,8,189,31,49,24,1 
0,144,2,9,1,157,31,49,202,138 
42002. DATN208,240,96 
43000 AS=EHR$ (34) : PRINT" {BLACK CLEAR DOWN3HLOAD" 
AF'"PREG4 az” ‚a" 
43004 PRINT"IPOHNSIRUN" . 
43002 PRINT" CHONEI":POKE 631,13:POKE 632, 13sPOKE 
198,2 
ENDE DES LISTINGS 


Compube mib 


<29> 

<172> 
<115> 
<202> 
<183> 


"<180> 


<199> 
<182> 
<53> 
<199> 
<250> 
<i1l3> 
<104> 
<5> 
<ha> 
<155> 
<136> 


<181> 
<171> 
<238> 
<124> 
<154> 
<255> 
<107> 
<242> 
<154> 
<192> 
<ı11ö> 
<ı> 
<S5B> 
<175> 
“82> 
<93> 
<75> 
<2> 


<166> 
<42> 


<213> 
<227> 


<172> 
“25 


*102> 
<167> 


«53> 


Programme 


C-64 LISTINGS + CHECKSUMMEN tC Vv1.0) 


0 REM" SU SCAIIRLSPACEIV CSPACEILSPACEIATSPACEIN 
Sc11 SI 


5 REM" (SBI HEX-UMH-SYSTEMCSPAGEIWIRDISPACEIBENÜET 
IGT!stSB 
& REM" (Sa SK 


10 GR=4:BS=14LE=1:LI=S:HT=0 

11 FORX=64272T05429&: POKEX „Or NEXT 

12 8Y849269 ,15:3Y550642: POKESS272 ,PEEK (53272) AND 
ZA1OR12 

14 IFPEEK (12576) < >128THENSYS2073:60T0 14 

20 PRINT“ tCLEAR}”:5YS49152,0,0:15Y5 49171,4,90,0, 
0,255,255,65 

30 898 49279,4,90,0,0,255,258,65 

40 5Y5 497348,4,90,0,0,255,255,65 

50 FORX=0T020488TEP32: SY849702,1114,X 

70 SYS 49742, 1114+10#SIN(X/20) ,X 

80,5Y5 49781 ,1114+20#SIN(X/10) „XzNEXTX 

100 PRINT"{BLACK RIGHT LAPPARAVISIONTSPACEICOMPAN 
yr 

110 SYS47240, 11: G0S5UB60000: 8Y849240 , 12: GOSUBSOOO 
01 SY549240,, 153 BOSUR&O000 

140 SYS 49240,7:605UB 60000 

191 SYS 49171,4,90,8,128,255,255,64 

142 SYS 49279,4,90,8,128,235,255,64 

143 SYS 49348,4,90,8,128,255,255,64 

150 FORX=204810409651EP32:SY549702, 1114, X 

170 SYS 49742, 1114+10#SIN(X/20) „X 

180 SYS 49781 ,1114+20"SIN(X/10) „KaNEXTX 

200 PRINT" (DOWNB}" 

470 SYS 50488,31:5Y5 50203,153,154,155,156,157,1 
58,159,160: POKE 53264224 

500 SYS 50498, 255,255 

510 SYS 49985,40,90,90,70,140,90,190,90,240,90,4 
0,80,40,140,40,200 

820 SYS 50130,6,6,6,6,5,7,7,7:5Y8 50655,2,4 

540 SYS 50674, 1:G0SUB 55000 

550 5YS 50674, 3:G0SUB 55000 

560 SYS 50674 ,71G0SUR 33000 

570 SYS 50674, 15: G0SUB 55000 

50 SYS 50674,31:60SUR 55000 

590 5YS 50674 ,65:605UB $5000 

&00 SYS 50674,127:G0SUB 33000 

610 SYS 50674 ‚255: GOSUB 55000 

620 PRINT" DOWN RIGHTT GREENI-TSPACE>POSTALLSPAC 
EISERVICES{SPACEI-" 

650 SYS 50334 ,0,0,0,0,0,0,0,0,0,0,04253,0,253,0, 
23 

640 SYS 50479,153,153,154,154,155, 155,156, 156,15 
7,157,158,158,199,159,1640,150 

630 8Y8 50624 


670 PRINT" CYELLOH DOWNS SPACEZYPRESSTSPAC 
E) '5'TSPACEIFÜRLSPACEISTART"“ 
675 PRINT" CHOHE DOWN IPARAVISION{SPAGEITON 
PANYSPAGEIPRESENTSı (SPACESI" 
677 PRINT"IRIGHT SPACE RIGHT SPACE R 


ACHT. SPACE RIGHT SPACE RIGHT BLUEJIULRICHTSPACEIM 
LEHL "SG" 

650 SYS 50655,2,6:5Y550130,1,12,0,12,1,7,7,7:1608 
UB &0000 

690. SYS 504655, 10414:5Y5%0130,15,11,11,11415,7,7, 
7:G0SUB 60000 

700 S8Y5 50455,7,13:8Y850130,12,0,12,0,12,7,7,7:6 
BSUB 60000 

710 SYS 50455, 13,5:5Y580130,11,11,15,11,11,7,7,7 
:B0SLIB 60000 

720 5Y8 50655,5,6:5Y850130,0,12,1,12,0,7,7,7:G08 
ULB 30000 

725 SYS 50455,14,13:8V850130,15,15,15,12,11,7,7, 
7:BOBEUB 60000 , 

730 GET Ass IF As="" THEN 480 

735 IF As<>"S" THEN 490 

740 BYS 50455,12,2:G0SUB 40000 

750 S8Y8 50653,11,9:G05UB 60000 

760 SYS 50455,0,0:G0SUB 50000 

779 BYS 50130,6,6,6,6,6,15,15, 15: 605UB 640000 
780 8Y3 50130,6,6,6,6,6,12,12,12:60SUB 60000 
790 SYS 50130,6,54645,6,11,11,11:B0SUB 60000 
200 SYS 50130,6,5,6,5,6,0,0,03BOSUB 60000 

B1O SYS 50130,13,13,13,13,13,0,0,0:BOSUB 40000 
820 SYS 50130,14,14,14,14,14,0,0,0:505UB 60000 


<101> 


<237> 
<159> 
<43> 
<50> 


<111> 
<257> 


“115> 
x172> 
<185> 
<193> 
<249> 
<a7> 


x2097> 


<x45> 
<19> 
«124> 
<177> 
<161> 
<191> 
<92> 
<197> 
<143> 


<144> 
<B8> 


<60> 
<77> 
<196> 
<222> 
<8> 
<128> 
<118> 
<170> 
<106> 
<ı151> 


<5> 
<108> 


<185> 
<a&> 


<73> 


<178> 


<178> 
<206> 
<bi> 
<192> 
<35> 
<246>3 


<227) 
<207} 
<975> 
<a6> 
<124> 
<73> 
<48> 
<116) 
<b0> 
<2&> 
<160> 
<245> 


830 
840 
850 
860 
870 
88V 
890 
3700 


SYS 
Bv8 
sY3 
SYS 
Sys 
gsyYs 


50130,15,15,15,15,15,0,0,0:G08UR 40000 
50130,12,12,12,12,12,0,0,07603UB 40000 
50130,11,11,11,11,11,0,0,03G05UB 40000 
50130,0,0,0,0,0,0,0,0: G0SUB 40000 
47240,14:G0SUB 40000 

47240, 12: G0SUB 60009 

SYS 49240,11:G0SUB 60000 

SYS, A9240,0:6OSUB 20000 

#10 PRINT" CLEARI"ıSYS 50674,0:5Y5 30642 

730 PRINT" {GREEN DOHNTIWODLLENTSPALEISIETSPACEISP 
1ELPARAMETER (SPACE) AENDERNSPACEIJ/N{SPACEI FF" 
740 SYS 51287,04,0,0,0,41,11,11,11:3Y8 531397 ,233 


750 5YS5 5134048Y5 49152,0,0:1BET AsılF As<>"gJ" AN 
D As<>"“N" THEN 750 

960 IF At="N" THEN 1090 
9780 PRINT" {CLEAR RIGHTIZ YELLOWIPARAMETERMENUE" 
970 PRINT"L RED) -— — —— mm 

1000 PRINT" (DOWN2 RIGHT4 L1G.GREEN) (1) (SPACEIBES 
EHWINDIGKEITLSPAGEIRYLANLSPACESI "FER 

1010 PRINT" (DOWN2 4 LI (2) (SPACE2}BEE 
INFLUSSUNG{SPACEISATELLIT(SPACE? "BB 

1020 PRINT"ICYAN DOHN3 RIGHT LI>WELCHENTSPACEIL/Z2 
SPACEI??" 

1025 FRINT"{CYAN DOWN RIGHTL1) 'S’(SPACEIFUER{SPA 
CEISTART" 

1030 SYS 51287,0,0,0,0,11,12,15,1:5V5 51397 ,233 
1040 SYS 51360:5Y9 49152,0,0:GET AtsIF Asc>"i" A 
ND As<>"2" ANDAS<>"S" THEN 1040 

1041 IF A$s="S" THEN 1090 

1045 IF At="2" THEN 1070 


1050 IFAF="1"THEN PRINT" (YPLLI": INPUT" (RIGHT 31Y" 


GR 
1050 BOTO 980 
1070 PRINT” (UP8} "1 INPUT" CRIGHT31}"7BS 
1080 60T0 980 
1090 SYS 51462,6R,ER:8YS 51481 ,B9,B8 
PRINT" {CLEAR DOHNI1O RIGHTI4 GREENIGETTSPACE 


1100 
IREADY" 

1110 FORX=0T0100: 54549171 „INT (2SS«RND(1)),0,0,0, 
239 ,0,172NEXT X 

1120 SYS 49171,0,0,0,0,0,0,0 

1130 DON LE GOTO 5000,5100,5200,5300,5400,5500,56 
00 ,5700 ,5800 ,5900 

1140 POKE 53278,0:5Y5 492649,3:8Y8 49171,34,207,0 
„0,10,205,17 

1145 SYS 49279 ,54,200,0,0,10,205,17:5Y5 49348,8, 
180,0,0,10,205, 127 

1147 GOSUB 2000:8Y8 50624 

1160 FORR-0T01500: SY52048: BY851300: IF (PEEK (53278 
)ANDL)<>OTHENHT=11R=1500 

1170 NEXT R 

1180 IF HT=O THEN 1500 

1190 HT=015YS 49152,0,11:B05UB 40000 

1200 SYS 49152,0,12:G08UB 20000 

1210 SYS 49152,0,15:5Y8 50130,1,12,12,12,12,12,1 
2,12:G0SUB &0000 B 

1220 SYS 49152,0,1:BY5 50130,15,41,11y 1,11, 11,1 
1,11:B0SUB 60000 

1230 SYS 49152,0,15ı18Y8 50130,12,0,0,0,0,0,0,0:5 
v3 47240 ,41605UBR 60000 

1240 SYS 49152,0,12:5Y5 50130,11,0,0,0,0,040,0:8 
Y3 49240,8:605UB 60000 3 

1250 SYS 49152,0,11:5Y8 50130,10,0,0,0,0,0,0,0:8 
YS 49240, 11:60SUB 60000 

1260 SYS 49152,0,0:5Y5 50130,0,0,0,0,0,0,0,0:5Y5 
49240 ,„0:B05UB 60000 

1270 FÜRX=0T085: SY549171 , INT (25S#RND1)) ,0,0,0,0 
,205, 16:5Y849449 ,150-X ,0,128 

1280 SY549279, INT (2S5"RND (1)) ,0,0,0,0,205, 16: NEX 
TX > 

1290 SYS S0442:5Y5 50674 ,OiLI=LI-1 

1300 PRINT" (CLEAR DOWNI2 RIGHTSITHERETSPACKIAREL 
SPACE} "zLIz "LIVESISPAGEILEFTSPACEI |" 

1310 SYS 49240, 11:605UB 40000 

1320 SYS 492409, 12:G05UB 40000 

1330 8YS 49240,15:605UB 50000 

1370 SYS 49240, 7160SUB &0000 

1380 SYS 49240, 15:G0SUB 60000 

1590 SYS 49240,12:60SUB 60000 

1400 SYS 49240, 15-505UB &0000 

1410 SYS 49240, 14BOSUB 60000 

1420 FOR WT=-0 TO S00:NEXT WT 

1430 IF LI>O THEN 1070 

1440 FRINT" CLEAR BLACK DOKNIO RIGHTISIGAMELSPAC 
EIDVER!" 

1450 SYS 49240, 11:G05UB 60000 » 


Gompute mit 


<74> 
21153 
<50> 
<238; 
<B81> 
<73> 
<74> 
<2143 
<190) 


<197> 
<198> 


<252> 
<244> 
<169> 
<178> 


“66? 
<145> 
<117> 


<61> 
<243> 


<186> 
<100> 
<140> 


<38> 
<139>_ 
<220> 
<159> 
<217> 


<187> 


<142> 
<22> 


<228> 
<232> 


<772 
<104> 


<77> 
<186> 
<232> 
<40> 
<227> 


<244> 
<205> 
<117> 
<249> 
<9> 
<71> 
<$19 


<65> 
<199> 


<232> 
<220> 
<3> 
<A0> 
<230> 
<90> 
<73> 
<110> 
<222> 
<33> 
<239> 


<131> 
<124> 





1455 SYS 492409, 12:60SUB 60000 

19460 SYS 49240, 15: 50SUB &0000 

1465 8YB 49240, 71 G0SUB 60000 

1470 8Y8 49240, 1:G0SUB &0000 

1475 FORX=100T008TEP-1:8Y849171,17,103,0,0,170,7 
0,214587549279 ,X,0,040,170,70,21 

1480 SY549348, INT (2S5«RND (19) ,0,0,0,170,70,12P4N 
EXTX 

1490 FOR WI=0 TU 250:NEXT HTERUN 

1500 FORX=PEEK (53248) T02335: SYS20484 SYS49171,X,X, 
0,0,170,170,21: POKESS248, X: NEXT 

1510 SYS 50674,0:PRINT" (BLACK CLEAR DONNS RIGHTL 
TIGREATCSPAGEI! ":POKE 54290,0 

1515 5YS 49240,3:G0SUB 60000 

1520 SYS 49240,3:60SUB &0000 

1525 SYS 49240, 13:1B08UB 60000 

1530 SYS 49240,7:G09UB 60000 

1549 PRINT" (DOHN2 RIGHTIO GREEN} YUULSFACEIMADETS 
PACEILEVELISPAGEI" HLEI" yıım 

1550 FURX=0105015Y549171,X,X,0,X,253,205,81:15Y54 
9279 ,K,X+100,0,0,170,208,17 


1560 NEXTX:SYS49603,0,0,015Y549636,0,0,0:3Y8 496 
69,0,0,0 

1570 FOR WT=0 TO 1000:NEXT WTELE-LE+1 

1580 IF LE<I1 THEN 1070 

1590 PRINT" CDOHN2 RIGHTI LIG-BLUE) YOU{SPAGCEIHAVE 
KSPACEFALSOTSPACEICOMPLETEDTSPACEITHISTSPACEIBAM 
EISPAGEF! !}" 

1600 FRINT"CDOHNZ RIGHTE IPLEABE tSPACE)I 
CONTACT {SPACEIUSTSPAGEIFÜR (SPACE) NEMLSPACE) JOBS" 
1610 FORWH=0T010: FÜRX=150T0250STEP15:SYS49171,K, 
X,0,0,170,205,20 

1620 8Y649277,X,X-100,0,0,170,205, 16: NEXTX:NEXTW 
H 


1630 FOR WT=0 TU 1000:NEXT WT+RUN 
1997 END 
2000 PRINT" HOME DOKN "PRINTTAB (33) "CSPACESI" 
2010 PRINTTAB(33) "(YELLON SPACEIPARALSPACEI" 
2020 PRINTTAB(33) "VISION" 
2030 PRINTTAB(S3) " (SPACES}" 
2040 PRINTTAB(33) "(HHITE SPACEIRRRRISPADEI" 
# Du 


2050 PRINTTAB(S3) "€ 
YELLOH SPACE) YYYY SPACE)" 
> » 


2060 PRINTTAB(SSI"CY 
2070 PRINTTAB(33) "t £ 

2080 FRINTTAB(33) " CHGREY. SPACEILLLLTSPACEI" 

2090 PRINTTAB (33) " CSPACESY" 

2100 PRINTTAB(S3)"CHGREY SPACEIAAAATSPACEI" 
2110. PRINTTAB(S3) "X 3" 

2120 ERTNTTAB CSS N CDGREY SPACEINNNNSPACEI" 

2130 PRINTTAB(33) "(SPACES}" 

2140. PRINTTAB(33) "ISPACESI" 

2150 PRINTTAB(33) "(SPACES}" 

2160 PRINTTAB(35) "{GREENILEVELL" 

2170 PRINTTAB(SS) "(LIG.GREEN SPACES}"z:PRINT"LLE 
ETSY";LE 

2180 PRINTTAB(33) "CSPACES}" 

2190 PRINTTAB(S3) "TSPACESI" 

2200 PRINTTAB (33) "(SPACES}" 

2240 RETURN 

5000 REM LEVEL 1 

5010 PRINT"IRED CLEARY":SYS 49444 ,36 

5020 EYS 50479,136,135,128,135,128,135,128,135,1 
28,135,128,13%,128,135,128,133 

5030 5YS8 50130,7,14,14,14,14,13,2,2 

5040 SYS 50203,135,128,128,120,129,128, 128,128 
5050 SYS 50698,0,0:18Y8 50689,0 

5060 SYS 49985,50,140,0,20,0,50,0,80,0,110,0,140 
„0,170,0,200 

5070 8Y8 50354,0,0,254,1,254,253,253,0,254,1,254 
255, 254,0,253,0 

5080 SYS 50674,3118Y5 51699,0 

5070 GOTD 1140 

5100 REM LEVEL 2 

5110 PRINT"<BLUE CLEARY":BYVS 49444 ,356 

5120 SYS 50479,136,156,126,135,128,155,128,135,1 
28,135, 126,135, 128,135,128,135 

5130 8Y8 50130,7,7,7,7,71212412 

5140 SYS 50203,136,128,128,128,129,128,120,128 
5150 SYS 50698,254,254:5Y5 50488,0 

S160 SYS 49785,50,140,0,20,0,50,0,80,0,110,0,140 
«0,170,0,200 

5170 SYS 50334,0,0,254,1,254,255,253,0,254, 1,254 
,295,254,0,253,0 

5180 5YS 50674,63:5Y5 51699,0 

5190 GOTD 1140 

5200 REM LEVEL 3 





<138> 
<170> 
<69> 
“26> 


<82> 


<153> 
<188> 


<30> 


<119> 
<103> 
<972> 

<217> 
<134> 


<2> 


<227> 


<156> 
<82> 
<30> 


<110> 
<ı125> 
<36> 


<157> 
<37> 
<B> 
<200> 
<120> 
<Z2A6> 
<172> 
<239> 
<193> 
<89> 
<213> 
<54> 
<233> 
<103> 
<253> 
<150> 
<17> 
<27> 
<37> 
<185> 


<67> 
<67> 
<77> 
<B7> 
<B6> 
<97> 
«255> 


<219> 
<65> 


-<106> 


<11> 
<199> 


<797> 
<09> 
<S51> 
<204> 
<1089> 


<aA> 
<117> 
<31> 
<186> 


<44> 


<180> 
<232> 
<152> 
<54> 


_Programme 


5210 PRINT" (GREEN CLEAR}":SYS 49444,36 

5220 SYS 50479,136,136,137,149,137,144,137, 144,1 
28,135,128,138,128,135,129,135 

5230 5Y8 50130,747414747414747 
5240 SYS 50203,136,137,137,137,128, 128,128, 128 
5250 SYS 50698,240,240:5Y8 S05U8,0 

5260 SYS 49985,50,140,0,20,0,50,0,80,0,110,0,140 
‚0,170,0,200 

5270 8Y5 50334,0,0,253,1,253, 255, 254,0,254,1,252 
254,254 ,0,253,0 

5280 SYS 50674,127:5Y5 51599,0 

62790 6010 1140 

5300 REM LEVEL 4 

5310 PRINT" {DGREY CLEARY"ıSYS 49444,56 

5320 8Y8 50479,136,136,137,194,137,144,137,144,1 
37,144,128,135,128,135, 128,135 

53530 SYS 80130,7,13,13,13,13,1,13,1 

5340 SYS 50203,136,137,137,137,137,128,128, 128 
5350 SYS 50698,224 ,224:5Y5 50688,0 

53640 SYS 49985,50,140,0,20,0,50,0,80,0,110,0,140 
„0,170,0,200 

5370 8Y8 503534,0,0,253,2,253,255,253,0,254, 1,252 
‚254 ,253,255,253,0 

5380 SYS 50674,127:158Y8 51699,0 

5390 GOTO 1140 

5400 REM LEVEL 5 

5410 PRINT" "85V A9AAA,Sb 

5420 SYS 50479,136,136,145,192,137,144,137,144,1 
20,135,145,152,128,135,128,135 

5430 SYS 50130,7,1414747,1,1,1 

5440 SYS 50203, 136,145,137,137,128,145, 128,128 
5450 SYS 50698,0,0:8Y8 50488,0 

5460 SYS 49985,50,140,0,20,0,50,0,80,0,110,0,140 
‚0,170,0,200 

5470 8Y8 50354,0,0,253,1,253,255,254,1,254,2,252 
+254 ,252,0,253,0 

5480 8Y8 50674,127:8Y8 51699,0 

5490 G0T0 1140 

5500 REM LEVEL & 

5510 PRINT" CYAN CLEARY":SYS 49444 ,36 

5520 898 50477,136,136,145,152,137,144,137,144,1 
28,135, 145,152,128,135, 128,135 

5530 SYS 50130,7 14 1yly4y4yi,1 

5540 SYS 50203,136,145,137,137,128,145, 120,128 
5550 SYS 50698,0,0:8Y8 50489,0 

5560 BYS 49905,50,140,0,20,0,590,0,80,0,110,0,140 
‚0,170,0,200 

5370 SYS 50334,0,0,254,2,254,3,254,254,254,255,2 
53,0,253,0,254,1 

5580 SYS 50674,255:5V8 51699,0 

5590 BOTO 1140 

5600 REM LEVEL 7 

5610 PRINT" ORANGE CLEARI"ıSVS 49444,36 

5620 SYS 50479,156,156,145,152,137,144,137,144,1 
28,135,145,152,128,135,128,135 

5630 SYS 50130,7,747,7, 7,411 

5640 SYS 50203,136,195,137,137,128,145,128,128 
8650 SYS 506998,0,0:8Y5 5048B,0 

5640 5Y5 49985,50,140,0,20,0,50,0,80,0,110,0,140 
,0,170,0,200 

5670 518 50354 ,0,0,253,255, 253,255, 253,0,253,0,2 
52,0,252,1,253,1 

5680 SYS 50674,255:8Y8 51699,0 

5670 GOTD 1140 

5700 REM LEVEL 8 

5710 PRINT"{LIG.GREEN CLEARY"ıSYS 49444 ,36 

5720 8Y8 50479,136,136,145,152,145,152,145,152,1 
45,152,145,152,148,152,145, 152 

5730 5Y8 50130,7,64,6,6,6,646,6 

5740 5Y3 50203,136,145,145,145,149,145,145,145 
5750 SYS 50698,0,015Y5 50688,0 

5760 SYS 49995,50,140,0,20,0,50,0,00,0,110,0,140 
‚0,170,0,200 

5779 SYS 503534 ,0,0,255,1,253,1,253,1,2535,1,252,1 
1252,1,253,1 

5780 SYS 50674,255:8Y8 51699,0 

5770 GDTQ 1140 

5800 REM LEVEL 9 

SB10 PRINT"LPURPLE CLEARI"LISVS 49444,36 

5820 SY5 504797,136,136,137,144,137,144,137,144,1 
37 ,144,137,144,137,146,137,194 

5830 SYS 50130,7,7,7,7,7,73747 

SA40 SYS 50203,136,137,137,137,137,137,137,137 
5350 BYS 50698,0,0:8Y8 50498,0 

5860 SYS 49785,50,140,0,20,0,50,0,80,0,110,0,140 
ı0,170,0,200 


Gompute mib 





<153> 
<46> 

<227> 
<102> 


<54> 


<218> 
<36> 
<142> 
<al)> 
«335> 


<22> 

<139> 
<ı121> 
<202> 


<154> 


<192> 
<136> 
<242> 
<188> 
<162> 


<240> 
<95> 
<214> 
<Ab> 


<234> 








Heft 1/88 


Commodare 

Bestall-Nr. COM CH 1/2 16,- DM 
Bestell-Nr. EOM CD 1/2 20,- DM 
Checksummer 1.0 ©, Astronaut Battle 
(E-64), Hueycohra (6-16/116), Hardcopy- 
routins (3-18/118), Helmut und die Zeit- 
maschine (6-18/110), Lacos (NG-20), 
Rock'me (VC-20), Charly dar Raketen- 
mann (VC-20), Interrupt-Programmie- 
rung (NO-20) 


Schneider 

Bestell-Nr. COM SX 1/2 16,- DM 
Bestell-Nr. COM SD 1/2 39,- DM 
Defender, Bouldar Dash, Basio-Beiehle 
auf den Funktionstasten 

Heft 5/88 

Commodore 

Bestell-Nr. COM CK 5/2 16,- DM 
Bestell-Nr. COM CD 5/2 20,- DM 


20), Tron (V6-20), Invaders of Space (C- 
1u/n8), Submarins 16-16/116), Balkon- 
diagramm {C-16/116) 


Bestell-Nr. COM CK 9/2 
Bestell-Nr. COMCD 9/2 20,- DM 
Moonpatrol (VC20), Falcons Lander 


16,- DM 


and Sound mit dem UMH-System 


(664), Digay (C 16/116), Tapedirecto- 
#y (016/116), Reversi (C 16/116) 


Schneider 

Bestell-Nr. COMSK 92 16,- DM 
Bestell-Nr. COM SD 92 39,- DM 
Creepy, Briefeschreiben, Frutty Man, 
Miıror Battle 


Aus diesem Heft: 


Commodore 
Bestell-Nr. COM CK 1/3 
16,- DM 

Bestell-Nr. COM CD 1/3 
20,— DM 


Schneider 

Bestell-Nr, COM SK 1/3 
16,- DM 

Bestell-Nr. COM SD 1/3 
39,- DM 





Heft 2/86 


Commodare 

Bestell-Nr. COM CK 2/2 16,- DM 
Bestell-Nr. COM 69 2/2 20,- DM 
Robo (6-64), Basic-Befehltsarweiterung 
(6-84), Rakstenstart (C-16/116), Drei- 
kampi (C-18/118), Headline (C-16/116), 
Deiender (VC-20), Formei I (NC-20), Me- 
mory-Display (UC-20) 


Schneider 

Bestell-Nr. sk 2/2 16,- DM 
Bestell-Nr. COM $D 2/2 39,- DM 
Allen 2001, Diamond Hunter, Direotery 


Belt 6/86 


Commodore 

Bestell-Nr. COM CK 8/2 16,- DM 
Bestell-Nr, COM CO 6/2 20,- DM 
Music-Master (6-54), The little Puck 
0085 home (C-84), EDDY (C-84), Invars- 
Umlity (B-16/116), Chocksummer (C-16/ 
116), Altenwurf (©-16/116), Data-Maker 
m Karate-Kid (VG-20D), Q-Bert [VC- 
Schneider 

Bestell-Nr. DOM SK 6/2 18,- DM 
Bestell-Nr. COM SD 8/2 39,- DM 
Bisksort, Mini-Farih, Starcommand 


Heft 10/86 


Commodore 

Bestell-Nr. COM CK 10/2 16,- DM 

Bestell-Nr. COM CD 10/2 20,—- DM 

Laufschrift (VC20), Checksummer 

Robber (VC20), 
Basiclader 


Schnekier 
Bestell-Nr. COM SK 10/2 16,- DM 
Bestell-Nr. COM SD 102 39,- DM 
Checksummer, 


ten können jederzeit 


nachbestellt werden, 


Bei den Zeitschriften 
sind die Ausgaben 5, 
9, 12 (85) und 5, 6, 7, 
8, 9, 10, 11 (86) noch 
vorhanden. 


Heft 3/88 

Commodore 

Bestell-Nr. COM CK 3/2 16,- DM 
Bestell-Nr. COM CD 3/2 20,- DOM 
Minor-Jumper (0-18/118), Here 
(C-18/116), Data-Maker (C-16/116), Be- 


fehlserweiterung (0-64), Starchip 
(6-64), Mini-Gar-Race (6-64), Text- 
Scroller (6-64), Text-Editor (0-64), 
Chocksummer (VG-20), Robin at Ra- 
venwvreck (VG-20), Mini-Karate (VG-20), 
Autonumber-Routine (VC-20) 


Bestell-Nr. COM SK 3/2 16,- DM 
Bestell-Nr. COM SD 3/2 39,- DM 
Smily, Screpi, Die verräckte Fahrik, Disc- 
Help 

Heft 7/86 

Commodore 

Bestell-Nr. COM CK 7/2 16,- DM 
Bestell-Nr. COM CD 7/2 20,- DM 


V6-20-Sound-Demo, Mad Rush (VC-20), 
Ghast-Hell [VC-20, Roadrunner (C-64), 
Basic Extension (6-64), Meteoriten- 
sturm (6-54), Chocksummer C-16/116, 
Airwalt (E-18/116), Break-Dut (C-18/116) 


Schneider 

Bosteil-NHr. GOM SK 7/2 
Bestell-Nr. COM SD 7/2 
Poker, Cavo-Walker, 


16,- DM 
38,- DM 


Heft 11/86 


Commodore 

Bestell-Nr. COM CK 11/2 16,— DM 
Bestell-Nr. COM CD 11/2 20,—- DM 
Cooky (VC20), Gambol (VC 20), Wo- 
stok (VC20), Topball (C 16), Zauber- 
puzzle (C 16), Schieberoutine (C 16), 
Atlantis (C64), Astronomie (C64), 
Deutsche Fehlermeldung (C 84), Rem- 
zeilenkiller (C64) 


Schneider 

Bestell-Nr. COM SK 112 16,- DM 
Bestell-Nr. COM SD 11/2 39,— DM 
Disketienhilfe, Horror Driver, Disc of 
Tron, Space Hawk, Morsedecoder 


Heft 4/B8 

Commodara 

Bestell-Nr. COM CK 4/2 16,- DM 
Bestell-Nr. COM CD 4/2 20,- DM 


Shuttie (VC-20), Jaset In dem Hählen 
(VC-20), Merge-Routine (VG-20), Shoot it 
{VE-28), Fast Trust (G-64), Data-Text 84 
(6-84), Gary, der schnelle Kabslverleger 
(6-18/118), $01 (C-18/116), Bosp-Routine 
(e-18/116) 


Schneider 
Bestell-Nr, COM SH 4/2 16,- DM 
Bestell-Nr. COM SD 4/2 39,- BM 


Spacs-Rescus, Textediter, Starfight, 
Programm-Retter 


Heft 8/86 

Commadore 

Bestell-Nr. COM CK 8/2 16,- DM 
Bestell-Nr. 82 20,- DM 


Besth Dosart (6:64), 3-D-Lahyrinth (C- 
64), Klick (C-64), Batınhof [VC-20), Dme- 
ga Attack (VE-20), Sound (VE-20), Plati- 
nenlayout (C-16/116), Balloan Shoot (16/. 
116), Hardoopy {6-16/116) 


Schneider 
Bestell-Nr. COM SK 8/2 
Bestell-Nr. COM SD 8/2 


16,- DM 
39,- DM 


Heft 12/86 


Commodore a 
Bestell-Nr. COM CK 12/72 16,— DM 
Bestell-Nr. COMCD 12/2 20,- DM 
Ballon Hopper (VC20), Fight Night 
(vC20), King of Kings (C 16/116), Ga- 
Isxis (C 16/116), Sprites (016/116), 
Atom (C64), Extended-UMH (C64), 
IRQ-Direstory (C 64) 





Schneider 

Bestell-Nr. COM SK 12/2 16,— DM 
Bestell-Nr. COM SD 12/2 39,—- DM 
Alien Attack, Lucky Luck, Mouse, 
Checksummer, Tracer 


Superpakete! 


Beachten Sie bitte unsere 


neu geschnürten Programmpakete. 
„und das zu einem Superpreis! 


Computbe ni 





Neu: Superpakete 


Superpaket 1 

Spiele 

Monster Attack, Projekt, High Noon, Brieftaube, 
Cadllon, Turbo Jet, Sea Attack, The Maze 
Graze Game, Galaxi, Space Comets, Sheet, 
Vampir, Memory 


SP-C-K-1 
SP-C-D-1 


Kassette 20, — 
Diskette 20, — 


Superpaket 2 

Spiele 

Tank Duell, Astronaut, Jungle 1, Jungle 2, Sufo, 
Fire-Legion, Spiders, Star Battle, Super 
Breakout, Mission Rescue, Roadpainter, 
Moonsweeper, Scotti 


SP-CK-2 
SP-C-D-2 


Kassette 20, — 
Diskette 20, - 


Superpaket 3 
Anwender 


The Basic, Basioresat, Data-Generator, Print- 
Generator, Supermon-84, Restore N, Disky 10, 
Fil-Loader, Funktionstästen-Belegung, Autostart, 
Multibasic, Bildeditor, Spritehilfe + Demo, 
Autonumber, Micro-Tools + Mioader 


SP-C-K-3 
SP-C-D-3 


GIG] 


Superpaket 1 


Horror Castle, Fantasy County, Senso, Jumping 
Joe, Schatztaucher, Shaolin, City Runner 


SP-Q-K-1 
SP-0-D-1 


Kassette 20, — 
Diskette 20, — 


Superpaket 2 
Genesis-Super-Assembler 

für C-16/116&plus4 

Komplett mit Anleitung und Demo-Programm 


Kassette 15, — 
Diskette 15, — 


Superpaket 1 

Flowers, Tanker, Jupiter Rescue, Einbrecher, 
Hospital, Allen, Flipperball, Sub-Zone, Dr. Cerp, 
Geo-Zayxon, Froggies Night Mare, Punkte- 
fresser, Starwars, Salavago Crew 


Anleitungen zu unseren Programmen erhalten Sie aus un- 
seren Heften. Bei ausverkauften Heften erhalten Sie zum 
Heftpreis Fotokopien der Spielbeschreibungen. 


 Sompute mib 


zum Superpreis! 


Superpaket 1 
Spiele 


Alien Hunter, Catch, Interceptor 3 D, City 
Lander, Conan's Castle, Copter Patrool, GPC 


Bert, Crash, Damon Attack, Duell, Etis, Labyrint, 


Miner, Tower, Snider’s Maze, Geister Schloß, 
Fallschirmspringer, Secret Valley, Aladin, 
Hounted Castle, Cave runner, Cobra, Erwin, 
Kruemi, Q-Bert 


SP-SR-K-1 
SP-SR-D-1 


Kassette 20, 
Diskette 27,— 


Superpaket 2 
Anwender 


Back up, Data gen, Datenverwaltung, Discopy, 
Monitor, Painter, Remkilier, SU-File, 
Tastaturbelegung 


SP.SR-K-2 . Kassotto 20,- 


software service 


Der Tronic-Verlag bietet - 


Spitzensoftware für jeder- 
mann. 

Überzeugen Sie sich von 
unseren Angeboten und 
bestellen Sie noch heute. 
Alle Bestellungen werden 
innerhalb nur 


1 Woche 


nach Eingang bearbeitet. 
Telefonische Bestellungen 
unter der Rufnummer 


05651/30011 


 — — 


iu u ae är 
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Leser- & Meckerecke 


5870 EV5 50354 ee Bohne 255,255, 


1252,1,252,1 Zul, 


5880 SYS 50674,255:5Y5 51699,0 
o 


Y"ıSVS 49444,36 





253,252,0 
<105> 


<87> 
<105> 
<227> 


5720 SYS 50479,155,156,195, 152,137, 144, 145,152,1 


209,139,137,144,128,135,137,144 

5930 SYS 50130,7,7,7,7,7,7,7,7 

5940 SYS 50203,136,145,137, ne 128,157,129,137 
5950 EYS 50498,0, OLSv8 50608 


<229> 
<196> 
<23> 

<147> 


3760 SY5 49985,50, 140,50,0, 80 0,110, 0,140,0,170, 


0,200,0,250,0 


<243> 


5770 895 50354,0,0,1,5,1435,0,252,0,4,252,3,252,2 


53,251,1 


5980 5YS 50674,255:5Y5 51499,0 


<51> 
<a1> 


5990 GUTO 1140 


55000 FÜR X=100 TO 0 STEP -10 

55010 SYS 49171,X,K,0,0,10,0,21 
55020 SYS 49279 ,X,X,0,0,10,0,21 
55030 8Y5 49348,X,X,0,0,10,0,21 


55040 NEXT X:RETURN 


&0000 FÜR WT=0 TO A40:NEXT WT+RETURN 


<1897> 
<191> 
<148> 


<201> 
<23977 
<ı14> 


&1000 FORWT=OT01250: NEXTWTEPRINT"CHOHE DOWNSI"EP 


RINTTAB (20) " {SPACE18)" 





&1010 PRINTTAB120) "TSPAGEISI" 


61020 PRINTTAB(20)"C 


SEAGEIPI" 
61030 PRINTTAB 20) "SPACE19)" 
&1040 PRINTTAB (20) "XSPACE19}" 


641050 RETURN 
ENDE DES LISTINSS 


Leser- & Meckerecke 


<226> 
<130> 
<140> 
<i50> 
<180> 
<2A&> 





Betrifft: "Compute mit” 12/86 
Sehr geehrte Damen und Herren! 
Ich beziehe mich auf das in der 


Ausgabe 12/86 Ihrer Zeitschrift 
"Compute mit” erschienene Edi 


torial. Darin bezeichnet Ihr Chef, 


nen flüchtigen Blick auf neuer- 
schienene Com werfen, son- 
dern auch ”das was dahinter 
steckt” testen. 
Schneider bringt mit diesem IBM- 
kompatiblen ein wahres Meister- 
stück heraus, was in dieser Preis- 
klasse und Qualität noch nicht er- 
schienen ist... 

Der PC 15123 verfügt außerdem 
noch über eine ein site 
die durch zwei Batterien ges 

wird. Im Inneren des Pc’s bein 
den sich Steckplätze für RAM- 
Erweiterungen, einen 8087 Pro- 
zessor und drei IBM-kompatible 
Slots. Die Strom ng a0- 
wie alle anderen lsse im 
Monitor unterzubringen, ist mei- 
ner Mei nach eine vortreffli- 


Alle Ai des u Schnei- 
der PC’s hier aufzuzählen, würde 
viel Zeit in Anspruch nehmen, 
oe ar a einer genauen 

tu im 
Bereich Hard. a ee Ich 


’CPC international” 10/11/86 
hinweisen, in der ein ausführli- 
re Uber den Computer 


Re gr pe Apr 
PR a MeDe Man Een 
ich Sie zumindest, daß Sie sich in 


Zukunft besser über Computer 
informieren und erst dann einen 
Bericht über das betreffende Ge- 


rät schreiben. 
Alerander Zöhler, immo. 


Redaktion: 


Doch, wir drucken ihn ab, wenn 

auch in gekürzter Form. 

Da das Editorial in der letzten 

”Compute Mit” offensichtlich 

Ko = gegen er Meinungen 
ist, möchte ich hier 

ae nei kurz auf Ihren Leser- 


brief eingehen. 


Sie erwähnen in Ihrem Schreiben, 
daß es Ihnen bei dem PC 1512 um 
die Qualität geht. Ich verstehe 
auch nach dem tausendsten Blick 
nicht, was diesen Rechner qualita- 
tiv von anderen Kompatiblen, 
aan panda nee 
en w unterscheii 
Ich arbeite schon seit über einem 
Jahr mit einem anderen IBM- 
Kompatiblen, ohne jemals 
Schwierigkeiten mit irgendeiner 
Software zu haben. Auch habe 
ich echte IBM-Steckplätze, kann 
jede IBM-Tastatur, jeden beliebi- 
gen Monitor anschli was Sie 


sicherlich bald vermissen werden. 


Ist es vieleicht der Name Schnei- 
der ? Bedenken Sie in diesem Zu- 
sammenh: auch der 
Schneider, wie die meisten IBM- 
Kompatiblen, im fernen Osten 
Te Koa aren 
ın Korea. Auc) 
des Monitors können hier wohl 
nicht ü n, fast keine Far- 
be zeigt sich hier ohne Farbrän- 
der, welches sich inbesondere in 
der. GEM-Betriebsart störend be- 
merkbar macht. Ein Austausch 


des Monitors ist leider wegen des 
eingebauten Netzteiles nur sehr 
umständlich möglich. ie 
ich kenne keinen PC, welcher 

durch Kabelsalat diese Verbin- 
dung schafft. Ganz im Gegenteil, 


spätesten wenn er er mit 
Strombedarf 


steckt werden sollen, dürfte beim 
Schneider PC ein zweites Netzge- 
rät fällig sein. 


Es gibt noch zahlreiche weitere 
welche davon daß 

der ee hi wohl Ko bes- 
ser ist als anı Kompati z.B. 
sind die Steckplätze in ee 
Weise IBM-kompatible, schon die 
Größe beschränkt die Kompatibi- 
lität). Das t,daß im Ge- 
EROPEER uch reichlich Software 
re m ist Iran richtig, 
in Bewertung ei- 
ee keine Rolle spe 
ki: Die Fichtige Software für sei- 


ne persönlichen Anforderungen 
hat noch niemand auf Anhieb ge- 


Außerdem: sollte die Schneider- 
Software wirklich so genial sein, 
zweifel ich nicht daran, daß sie 

auch separat erhältlich sein are 


Übrigens: auch andere Zeitungen 
sind Sch ausführlichem Test zu 
ähnlichen bnissen gekom- 
men. Daß "Schneider Internatio- 
nal” dies anders sieht, ist Ihr gutes 
Recht, aber leider auch nur zu gut 
zu verstehen. 

Frank Brall/ Uwe Knierim 


"Compute mit” 11/86 
An die Redaktion, 


im August ’86 häbe ich meinem 
Sohn einen CPC 464 zu seinem 


Sompute mi 


14. Geburtstag geschenkt, seit- 
dem beschäftigt er ich sehr inten- 
siv damit. Er tippt auch fleißig Ih- 
re Listings ab, welche aber leider 


nicht funktionieren, 


. = ne aligem Überprü- 
mi 
fen des eingetippten Epsen, lege 
erscheint immer wieder 
dem Start TYPE MISMATCH 
in Zeile 2740 


2. Disc of Tron 
eine kurze Erklärung zum Ein- 
laden der 3 Listings hätte mit 
Sicherheit keiner bedauert. 


3, Horror Driver 
era nach Überprüfen des 
abgetippten re bricht das 
Spiel nach dem Start zu- 


sammen. 
Bernhard Klein, Heusenstamm 
Redaktion 
Zu Punkt }. Sie haben ganz sicher 
en rise einen a 
Buchstaben eingemogelt. 
TYPE" MISMATCH Wr 
nämlich, daß eine falsche Varia- 
blenform vorgefunden wurde, 
Schauen Sie mal nach, ob Sie 
nicht zum Beispiel statt einer 
"Null” grmeiis einen A Balls: 
ben "O” ei 
Punkt 2, Se Re Reche Tiopen 
Sie zuerst Teil 1 ein Und spei- 
chern ihn. Dann geben Sie Teil 2 
ein und starten ihn. Das Pro- 
amm erzeugt einen File, der 
Baer Teil 1 wer- 
den muß. Teil 3 eınti und 
speichern und schließlich Teil 1 
laden und starten. 


Punkt 3: Sicher haben Sie noch 
Fehler in den Datazeilen. 


187 





programme 


Vor den Spaß haben die Götter 
das Abti gestellt. Zunächst 
müssen & Programmteile "ICE 
DATA” und "ICE LOADER” 
abgetippt und auf jeden Fall abge- 
speichert werden. 
Danach startet man den Teil 
"ICE DATA”, wodurch nach ein 
Minuten der Teil "DATA 
ICE" auf Disk oder Kassette‘ ge- 
schrieben wird. 








6-54 LISTING + DHECKSUNMMEN {6 V1.0) 


surulo 
RE 


ITE RACING ic) BY 
RADDLSH-SUFT GERMANY 


AUTOR = FEHRISTIAN REUCH 


SOsnsmogaun-9S 
„anne 
a mn... 


BWUENRESNRUMETURUNENENNN RUN ZN KERLE REN 

10 IFM-OTHENA= 1: LOAD" DATATSPAGEI ICE" „A, 1:REM BEI 
KASSETTE „ist 

70 PRINT" IHGREY CLEAR DOWNI RIGHTZIPLEASETSPACEI 

WAITLSPACE? LCSPALEININUTE (SPACEI" 

21 PRINT" CDOWN2 RIGNTZIICELSPACEIRACINGESPACEIBY 
KSPACEIRADDISHISPACEISOFT CSPACEIGERMANY" FORI=1T 

BA000:NEAT 

25 DIMWL1S19) :FORI=0TO1515: POKESO176+1 ‚PEEK (26498 

Art) NEXT 

170 PÜKEISH76 ‚PERK(56576) AND2S2: POKESS272,9:POKE 

648,192: PRINT" BROWN?" 

175 FÜKES3270 216 

180 FORX=832T0865: READQ: POKEX „A: NEXT 

190 DATA120,169,51,133,1,169,0,153,95,133,90,133 
‚89,169, 208, 133,96, 169,240, 133 

200 DATABF, 169 ,224,132,91 ,32,171,153,169,55,133, 
1,88,96 

210 SY5B32 

220 BA=57344 

230 READZE: IFZE=-1 THENI1000 

240 FORI=0107:READO: POKEBA+ZE#B+1 „Gr NEXT 

250 GOTO230 

SN9 DATAZS, „63,234 ,234 , 234 ,234 ,234 ,63,34,,252,3, 


<123> 
<121> 
<b> 
x99> 
<8> 
“127> 
<10> 
<52> 
<12> 
<129> 


<102> 


<129> 


<105> 
<237> 


<204> 


221? 


<1974> 
«214> 


<b> 
<u5> 
<219> 
<100> 
<172> 
<64> 


3,3,3,3,252,35, 1255, 241911255 
129, 


S10 DATAS&, „295,128,128, 
160,160,160,160, 160,255 


520 DATASB, ‚255,168, 168,168, 


170,170,170,170, 170,285 


Von nun an muß nur noch der 
Teil "LOADER ICE” gestartet 
werden, da dieser den Rest nach- 


lädt, Allerdingssollte, bevor das 
Programm geladen wird, zuerst 
der Computer kurz aus- und wie- 


der eingeschaltet werden (RESET 
reicht nicht aus!!), da sonst die 
Sprites nicht korrekt ausschen. 
Nachdem das Programm gestartet 
wurde, erscheint nach einiger Zeit 
das Titelbild. Sie können jerzt 
wählen, ob Sie zu zweit (F7) oder 
den Computer (F1 -leicht, 
F3, F5 -schwer) spielen wollen. 
Die Eislaufschnellbahn wird auf 
dem Bildschirm zweimal abgebil- 
det, und zwar jeweils aus der Sicht 
der beiden Spieler. Dabei ist der 
Einzelspieler immer oben und 


steuert Joystick 2. 
Durch den direkten Vergleich der 
nders 
ich. Um 


beiden Läufer sind 
annende Rennen 
den Läufer zu beschleunigen, 
müssen Sie den Joystick immer in 
gleiche Richtung drücken wie das 
ä nde Bein Ihres 
Läufers, Ob Sie mit Ihrem Läufer 
schnell oder sind, kön- 
"nen Sie anhand des Geschwindi 
keitsbalken unterhalb Ihres 
dausschittes sehen. 
Sobald beide läufer im Ziel sind, 
werden die Zeiten angezeigt und 
Sie können ein neues Spiel be- 
ginnen, 





<203> 
1298, 128,255,37 , 1,255, 

<a9> 
168,168,255,39,,255, 

<3> 


600. DATAAO, 1020120485341 2170,40, un 10 nr du nenn 


° 17,85,45,, .v ‚,64,80,83 


<106> 


610 DATA44,170,1704 34, 444947454168, 160, 128, u 40 74 


[ LPRPRPGREPEReREN = 1. DI. 7 205 75): PORERPRE 


<78> 


620 DATASB, , 44 .,21,85,85,59,,,,,,64,80,84,40,170 
A210, 443615168 16B, 160 

650 DATA62,44+,145421,854,63, 431,64, 80,85,89,64, 5 
1,1,9369465, 170442, 10, 1 1 1 1 186 

540 DATA17,170, 168, 4 144367, 128 yon ar nß nn rn 
21,21 ,05,69,170,92,10,2u v5 

&50 DATA7O, ,,41,7,21,23,87,71443,05,223,221,221, 
723,72,170,170,170,170 , 1 ,+ 

460 DATN?Z, „199, 223,221,93, 223,744 44,804212,213 
«213,213,75,23+247,215,297 ,215 

870 DATA247 4754 44,119, 247 „247,247 ,119,77,4,,20B, 
116,117,117,213 

700 DATAFEs aan 909247770000 424170,170, 80, 54451 
70,170,170,B1y 4433 ,168, 170,170 

716 DATABZ, y4447,4128,95,2,10,10,10,42,42,42,42, 
B4,170,170,170,170, 1994 ,96,84,B84 E 

720 UNTAgS,170,170,170,170,170,170,170,170,86,17 
0,170,170,170,170, 150,85,85 

730 DATAB7 ,170,170,170,170,170,90,86,86,B8,128,1 
40,140,160,160, 160,168,168 

746 DATABY,170,170,170,170,170,169,167,169,70,B& 
‚06,86 ,B6,86,90, 90,70 

750 DATA91,170,170,170,155,147,149,86,70,72,170, 
170,170,105,790,90,154,170 

760 DATA?3,170,170,170,165,149,150,90,90,94,170, 
170,170,108,70,70, 154,154 


Compute mik 


<149> 
<27> 

<200> 
<172> 
<112> 
<172> 
<110> 
<149> 
<125> 
<142> 
<148> 
<82> 


<192> 





. „Programme 


4 770 DATA9S,170,170,170,170,170,170,170,165,96,17 
A | 0,170,170,170,170,170,170,86 <222> 
4 






DATA 5,123,0,0,5,123,50 <146> 
DATA 10,247 ,0,0,10,247,50 <177> 





780 DATA97,170,170,170,170,170,169,169,169,90,85 DATA 5,123,0,0,5,123,50 <152> 
P +96 ,84 ,85,85,85,85,85 <32> DATA 10,247 ,0,0,10,247,50 <185> 
77 790 DATA97,199,165, 165,149 ,86,86,90,170,100,170, DATA 5,127,0,0,5,123,50  , <158> 
4 170,170,169,165, 149,150, 154 <180> DATA 10,247,0,0,10,247,50 <189> 
L 800 DATA101,170,170,170,90,86,86,150,150,102,170 DATA 5,123,0,0,5,123,50 <164> 
’ „170,170,169,165,165, 149,150 <o> DATA 10,247,0,0,10,247,50 <195> 
i 810 DATA103,170,170,170,90,06,86, 166,170, 104,166 REM TON E-E-E FOLGE: VERZ. —————— <20> 
v „149,149,170,166,149, 149,147 <163> DATA 5,123,5,123,52,39,50 <BB> 
E 820 DATALOS,170,170,170,169,165,165,145,165,106, DATA 10,247,10,247,49,58,50 <1mM> 
170,170,170,150,95,85, 101,165 <40> DATA 5,123,5,123,43,219,50 <139> 
830 DATA107,170,170,170,170,169,169,165,165,10B, DATA 10,247,10,247 ,32,219,50 <186> 
170,170,170,89,89,85,85,165 <151> DATA 5,123,5,123,5, 123,50 <221> 
N 840 DATA109,169,169,169,169,167,41,42,42,110,90, DATA 10,247,10,247,10,247,50 <148> 
’ 90,90,90,90,90,106,170 <65> DATA 5,123,5,123,5,123,50 <227> 
850 DATA111,90,90,90,86,149,147,1685,170,112,170, DATA 10,247,10,247,10,247,50 <150> 
170,154,70,90,106,170,170 <236> DATA 5,123,5,123,5, 123,50 <235> 
| 860 DATA115,85,70,70,864 147,147, 165,170,114,106, DATA 10,247,10,247,10,247,50 <156> 
170,154,90,90,106,170,170 <bb> DATA 5,123,5,123,5,123,50 <239> 
\ 870 DATAL18,149,149,165,170,170,170,170,170, 116, DATA 10,247,10,247,10,247,50 <162> 
85,85,86,170,170,170,170,170 <195> DATA 5,123,5,123,5, 123,50 <245> 
890 DATN117,169,169,169,169,169,169,170,170,11B, DATA 10,247,10,247,10,247,50 <168> 
85,89,87,90,70,90,106,170 <9> DATA 5,123,5,123,5,123,50 <251> 
#70 DATA119,106,106,90,70,70,150,150,170,120,167 DATA 10,247,10,247,10,247,50 <174> 
„165,149, 150,190, 149,145,170 <193> REM ANF- 178113 BEL. 812,3-— <27r> 
700 DATA121,86,86,150,150,865,86,150,170,122,150, DATA 5,123,87,182,52,39,50 <75> 
150,150,149,165,165,169,170 <76> DATA 10,247,0,0,49,58,50 <169> 
910 DATA123,170,170,1656,150,85,90,106,170,124,14 DATA 5,123,0,0,45,219,50 <al> 
E 7,149,149,149,1499,197,166,170 <198> DATA 10,247,0,0,32,219,50 <a4> 
920 DATA125,165,165,165, 165,165, 165, 166,170,126, DATA 5,123,87,182,52,39,50 <87> 
. 165,165, 165, 159,165, 165, 166,170 <140> DATA 10,247 ,0,0,47,58,50 <1B1? 
930 DATA127,165,165,165,165,169,169,170,170,128, DATA 4,226,0,0,43,219,50 <73> 
i 185, 165,165,85,89,059,85,165 <136> DATA 9,196,0,0,32,219,50 923 
r 740 DATA129,170,170,170,170,170,168,168,168,130, DATA 4,90,697,137,52,539,50 <6B> 
42,10,10,10,2,2,, <150> DATA 8,180,0,0,49,58,50 <225> 
950 DATA131,170,170,170,170,170,170,170,42,152,1 DATA 4,90,0,0,43,219,50 <127> 
66,165, 165,169,167,170,170,170 <107> DATA 8,180,0,0,34 ,207 ,50 <37> 
760 DATA15S,165,199,85,86,86,70,170,166,134,168, DATA 4,90,69,157,92,39,50 <80> 
150,160,160,128,128,0,0 <165> DATA 8,190,0,0,49,58,50 <237> 
977 DATA-1 <90> DATA 4,90,0,0,43,219,50 <139 
’ 1000 FOR T=i TO 1519:READ W{T) NEXT <178> DATA 8,180,0,0,34,207,50 a9 > 
“ 1003 81=54272:1=51+24 <185> REM mm nen <202> 
1005 W1=51+4:W2=51+11:W3=51+18 <bb> DATA 4,2265,0,0,39,18,50 <17% 
| 1009 Al=S1+5:A2=-81+12:A3=51+19 <13> DATA 9,196,0,0,39,19,50 <2235> 
1012 Hi1=SI+6:H2=S1+13:H3=51+20 <34> DATA 4,226,0,0,39,18,50 <1B5> 
1015 T3=81414:P3=81+17 <27> DATA 9,196,0,0,37,18,50 <229> 
1018 PÜKE 1,15 <125> DATA 4,225,0,0,58,139,50 <195> 
1021 POKE A1,74 :POKE N2,95 :FPOKE AS,95 <989> DATA 9,196,0,0,52,37,50 <214> 
1024 POKE H1,60 ıPOKE H2,191:P0OKE H3,171 <BB> DATA 4,226,0,0,47,58,50 <14> 
1027 FOKE 13,15 :POKE PS,15:5Y8 30000 <61> DATA 5,123,45,219,0,0,50 a <B> 
1030 FOR T=1 TO 1519 <97> | 1288 DATA 10,247,10,247,43,219,50 <«a1> 
En 1033 POKE 54273,W{T): T=T+1:POKE 54272,W(T)ı T=T#+1 <187> DATA 5,123,5,123,43,219,50 <6> 
Z 1034 POKE 54280,W(T):T=T+11POKE 54279,WT):T=T+1 <B9> | 12794 DATA 10,247,10,247,43,219,50 <87> 
a. 1039 POKE 54287 ,W1T)ı TeT+1:POKE 54286,W1T):T=T+1 <8S5> DATA 5,123,5,123,0,0,80 <249> 
1042 POKE W1,33:POKE W2,355:POKE WS,65 <21> 1300 DATA 10,247,10,247,0,0,50 <4> 
1045 FOR 1=0 TO WITI-10sNEXT <128> | 1303 DATA 5,123,5,123,0,0,50 <255> 
1048 POKE W1,32:PGKE W2,32:POKE W3,32 <147> | 1306 DATA 10,247,10,247,0,0,50 <10> 
1051 NEXT T <73> 1209 DATA 5,123,5,123,0,0,50 <5> 
1054 6010 1050 <89> 1312 DATA 104247410,247 ,0,0,590 <16> 
1057 REM BEBIN itE-DUR; TON Er- <95> | 1315 DATA 5,123,5,123,0,0,50 <11> 
1060 DATA 5,125,0,0,0,0,50 <189> | 1518 DATA 10,247,10,247,0,0,50 <22> 
1965 DATA 5,123,0,0,0,0,50 <1972> | 1321 DATA 5,123,5,123,0,0,50 2 “17> 
1066 DATA 5,125,0,0,0,0,50 <195> | 1324 DATA 10,247,10,247,0,0,50 <28> 
1067 DATA 5,125,0,0,0,0,50 <198> | 1527 DATA 5,123,5,123,0,0,50 «23> 
1072 DATA 5,123,0,0,0,0,50, <201> | 1330 DATA 10,247,10,247,0,0,50 <34> 
1075 DATA 5,123,0,0,0,0,50 <204> | 1333 REM TEIL 24W.BEGIN 1: TON Ei=———— 1493 
1078 DATA 5,123,0,0,0,0,50 <207> | 1334 DATA 5,123,5,123,52,39,50 <7> 
1081 DATA 5,123,0,0,0,0,50 <210> | 1339 DATA 10,247,10,247,49,58,50 <113> 
1034 DATA 5,123,0,0,0,0,50 <213> | 1342 DATA 5,123,5,123,43,219,50 <57> 
1007 DATA 5,123,0,0,0,0,50 <216> | 1345 DATA 10,247,10,247 ,32,219,50 <105> 
1070 DATA 5,123,0,0,0,0,50 <219> | 1348 DATA 5,123,5,123,5,123,50 <140> 
1073 DATA 5,123,0,0,0,0,50 <222> | 1351 DATA 10,247,10,247,10,247,50 <63> 
1076 DAaIA 5,123,0,0,0,0,50 <225> | 1354 DATA 5,.123,5,123,5,123,590 <1As> 
109% DATA 8, 1235,0,0,0,0,50 <228> | 1357 DATA 10,247,10,247,10,247,50 <69> 
1102 DATA 5,123,0,0,0,0,50 <231> | 13550 DATA 5,123,5,125,5,125,50 <152> 
1105 DATA 5,123,0,0,0,0,50 <234> | 1363 DATA 10,247,10,247,10,247,50 <75> 
1108 DATA 5,123,0,0,5,123,50 <119> | 1366 DATA 5,123,5,123,5, 123,50 <158> 
1111 REM ION E-E FOLBE:VERZ. ——————— c241> | 1369 DATA 10,247,10,247,10,247,50 <8i> 
1144 DATA 10,247,0,0,10,247,50 <153> | 1372 DATA 5,123,5,123,5,123,50 <1047 
1117 DATA 5,123,0,0,5,123,50 <128> | 1375 DATA 10,247,10,247,10,247,50 <87> 
1120 DAIA 10,247,0,0,10,247,50 <159> 78 DATA 5,123,5,123,5,123,50 <170> 
1125 DATA 5,123,0,0,5,123,50 <134> | 1381 DATA 10,247,10,247,10,247,50 9737 
1124 DATA 10,247,0,0,10,247,50 <165> | 1584 DATA 5,123,87,182,52,39,50 “2473 
1129 DATA 5,123,0,0,5,123,50 : <140> | 1397 DATA 10,247,0,0,49,58,50 <85> 
1132 DATA 10,247,04,0,10,247,50 <ı71> | 13570 mntA 5,123,0,0,43,219,50 «213> 
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1549 DATA 5,123,52,39,65, 181,50 <210> 
1376 DATA 5,123,87,182,52,37,50 <3> 1451 DATA 10,247 ,52,39,45,181,50 <101> 
1397 DATA 10,247,0,0,997,58,50 <97> 1654 DATA 4,226,49,58,58, 138,50 <119> 
1402 DATA 4,226,0,0,43,219,50 <245> | 1557 DATA 9,1964,49,58,58, 139,50 <163> 
14058 DATA 9,196,0,0,32,219,50 <B> 1450 DATA 4,226,49,58,58,138,50 <125> 
1408 DATA 4,90,69,157,52,39,50 <240> | 1663 DATA 9,196,49,58,58, 138,50 <169> 
sa11 DATA 8,180,0,0,49,58,50 <141> | 1566 DATA 4,90,52,37,65,181 ,50 <173> 
1414 DATA 4,90,0,0,43,219,50 <43> | 1667 DATA 8,180,52,39,65, 181,50 <249? 
1417 DATA 8,180,0,0,354,207,50 <209> | 1672 DATA 4,90,52,39,65,181,50 <179> 
1420 DATA 4,90,597,157,52,39,50 <252> | 1675 DATA 8,180,52,39,55, 181,50 <255> 
1423 DATA 8,180,0,0,49,58,50 <153> | 1478 DATA 4,90,49,58,58,138,50 <57> 
1426 DATA 4,90,0,0,43,219,50 <55> | 1481 DATA 8,180,49,58,58,138,50 <144> 
1429 DATA 8,180,0,0,34,207,50 <221> | 1684 DATA 4,90,45,219,52,397,50 <189> 
1432 DATA 4,225,0,0,39,18,50 «92> | 1687 DATA 8,180,43,219,52,39,50 <7> 
1435 DATA 9,196,0,0,539,18,50 <136> | 1690 DATA 4,226,49,58,58,138,50 <155> 
1438 DATA 4,224,0,0,39,18,50 <98> | 1693 DATA 9,196,49,58,58,138,50 <199> 
1491 DATA 9,196,0,0,59,18,50 <142> | 1696 DATA 4,226,49,58,58,138,50 <161> 
1444 DATA 4,226,0,0,58,158,50 <108> | 16899 DATA 9,196,52,59,52,37,50 <7> 
1447 DATA 9,196,0,0,52,39,50 <127> | 1702 NATA 4,226,32,37,52,37,50 <225> 
1450 DATA 4,226,0,0,49,58,50 <182> | 1705 DATA 9,196,49,58,58, 138,50 <211> 
1453 DATA 5,125,45,219,0,0,50 <176> | 1708 DATA 4,226,49,530,58,138,50 <173> 
1455 DATA 10,247,10,247 ,43,219,50 <249> | 1711 DATA 5,123,32,219,43,219,50 <88> 
1459 DATA 5,123,5,123,43,219,50 <174> | 1719 DATA 10,247 ,32,219,43,219,50 <23> 
1462 DATA 10,247,10,247,43,219,50 <255> | 1717 DATA 5,123,32,219,43,219,50 <94> 
1455 DATA 5,123,5,123,0,0,50 <141> | 1720 DATA 10,247,32,219,43,219,50 <29> 
1458 DATA 10,247,10,247 ,0,0,50 <172> | 1723 DATA 5,123,32,219,43,219,50 <100> 
1471 DATA 5,123,5,123,0,0,50 <167> | 1725 DATA 10,247,32,219,453,219,50 <35> 
1474 DATA 10,247,10,247 ,0,0,50 <«178> | 1729 DATA 5,1235,32,219,43,219,50 <106> 
1477 DATA 5,123,85,123,0,0,50 <173> | 1732 DATA 10,247,32,219,43,219,50 <a1> 
1420 DATA 10,247,10,247,0,0,50 <184> | 1735 REM BEGBIN 2. mem <248> 
1983 DATA 5,123,5,123,0,0,50 <179) ENDE DES LISTINGS 
1486 DATA 10,247,10,247,0,0,50 <190> 
1489 DATA 5,123,5,123,5, 123,50 <25> 
1492 DATA 10,247,10,247,10,247,50 <204> 
1495 DATA 5,123,5,123,5,123,50 <31> 
149A DATA 10,247,10,247,10,247,50 <210> U-&4 LISTING + CHECKSUMMEN (C Vv1.0) 

1501 REM ZUM HAPT«LE.OH. VERZ. un <252> 
1504 DATA 8,123,0,0,52,39,50 <123> | ı ND=249841FORI=1000T01 187: READA$ ,PS:C=0: FORN=1T 
1507 DATA 10,247 ,0,0,52,539,50 <105> | DLENtAFISTEFZ <245> 
1510 DATA 5,39,0,0,58, 138,50 <235> | 2 A=ASC (MIDFtAS,N,1))-A8r B=ASC (MIDSCAF,N+1,1) 9-4 
1513 DATA 12,78,0,0,598, 159,50 <202> | BiA=N+7#tA>9) :B=Br+7# (B>9) <i161> 
1516 REN WAPT nn nn nn nannn <215> | 3 POKEAD, 168A+BSs C=C+PEEK (AD) sAD=AD+1 <176> 
1519 DATA 6,133,32,39,65, 181,50 <97> | 4 NEXT=:PRINTIz "ISPACE}" = IFE<>PSTHENPRINT"ERROR" 
18522 DATA 13,10,52,39,65, 181,50 <53> ıSTOP <157> 
1925 DATA 5,1353,52,39,65, 191,50 <93> 5 PRINT"OK"=NEXT <145> 
1528 DATA 13,10,52,39,65, 181,50 <59> |6 FOKE43, 104: POKE44 , 105: POKEAS, 18: POKE4& , 128: 5AV 
1531 DATA 5,39,49,50,58, 138,50 <190> | E"DATATSPACE)I ICE" „B,1 <179 
1534 DATA 12,78,49,58,58,1358,50 <23> |7 8Y864738:REM IN ZEILE & BEI KASSETTE SAVE"DATA 
1537 DATA 5,39,49,58,58, 138,50 <197> | SPACE ICE" „1,1 <ı22) 
| 1540 DATA 12,78,49 ,59,58, 1389,50 <30> 1000 DATA 00000000000000000000000000000000000000 
| 1543 DATA 5,123,52,39,65, 181,50 <105> | 000000000000000000000000, O <110> 
| 1546 DATA 10,247,52,39,65,181,50 <232> | 1001 DATA 00000000010000100000850001D700027D00005 
1549 DATA 3,123,52,39,65, 181,50 <ı11> | 8500059500055500055F0005, 1026 <157> 
1552 DATA 10,2937,52,39,65,181 ,50 «2> 1002 DATA 75000000000000000000000000000000000000 
1555 DATA 4,226,49,58,58, 138,50 «<20> 000000000000000000000000, 117 «2137 
1558 DATA 9,196,49,58,58,1358,50 <64> 1003 DATA 000000005054005055005555000SA70075AA00 
1561 DATA 4,226,49,58,98,138,50 <26> SAACO0552000540000400000, 1704 <11> 
1544 DATA 9,196,49 ,58,58, 138,50 <70> 1004 DATA 40000000000545001501001501001400005400 
19557 DATA 4,90,52,39,65,181,50 <74> 015000014001014001050001, 505 <ı85> 
1570 DATA 8,180,52,5397,685,181 ,50 <150> | 1005 DATA 05000850F0AAFOFEAAFZEEARESFFAAFORAAAAOO 
1573 DATA 4,90,52,39,65, 181,50 <80> | 200200000000000000000000, 1970 <45> 
1576 DATA 8,190,52,39,65,191,50 <156> | 1006 DATA 00000000000050000050000050000050000050 
1577 DATA 4,90,49,58,58, 138,50 <214> | 000050000050000050000040, 704 <167> 
1592 DATA 9,180,47,58,58,158,50 <45> 1007 DATA 0000800000800000E20000EAB000FAB000AABO 
1585 DATA 4,90,43,219,52,39,50 <90> | 002000000000000000000000, 1552 <a0> 
1588 DATA 8,180,43,217,52,39,90 <164> | 1008 DATA 00000000000000000000000000000000000000 
1991 DATA 4,226,49,59,59,138,50 <56> | 000000000000000000000000, O0 <118> 
1594 DATA 9,196,0,0,0,0,50 <18> | 1007 DATA 00000000000000000000000001000010000035 
1597 DATA 4,226,49,58,58, 158,50 <62> | 0001050001 7F00058B50006595, 831 <199> 
1600 DATA 9,195,0,0,0,0,50 <24> | 1010 DATA 00055500055F00057500000000000000000000 
1603 DATA 4,226,47,58,98,1358,50 <68> | 000000000000000000000000, 312 <i6> 
1605 DATA 9,196,0,0,0,0,50 <30> | 1011 DATA 000000000000 
1509 DATA 4,225,49,58,58,138,50 <74> | 5500D05A70075AA0055AC0055, 1524 <229> 
1512 DATA 9,196,0,0,0,0,50 <S56> | 1012 DATA 200054000000000040000000000535500054500 
1615 REM HAPT.2-—— -—nnnnnnnnnn <94> | 054500050100150100150100, 468 <204> 
s 1618 DATA 5,133,52,39,65,181,50 <187> | 1013 DATA 540100540500500503500503C0AFOBEAAFOFEA 
1621 DATA 13,10,52,37,65,191,50 <153> | AEZEEAAFOBEAAAOAFA020000, 2592 «77> 
1624 DATA 6,133,52,39,65,181,50 <173> | 1014 DATA 00000000000 00004000004000 
1627 DATA 13,10,52,39,65, 181,950 <159> | 004000004000004000004000, 384 <131> 
1530 DATA 6,39,49,58,59,139,50 <34> 1015 DATA 00400000400000000000800000820000EA0000 
1633 DATA 12,78,49,58,58, 139,50 <123> | EA8000FABO00AAB000200000, 1690 <117> 
1635 DATA 6,39,49,58,58,138,50 <a0> 1014 DATA 00000000000000: 000000000000000 
1639 DATA 12,78,49,58,58,138,50 <127> | 000000000000000000000000, 0 <126&> 
1642 DATA 5,123,52,39,65,181,50 <204> | 1017 DATA 00000000000000000000000000000000000000 
1645 DATA 10,247 ,52.39,85, 181,50 <95> 000500007000015500010D500, 430 <i166> 
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1018 DATA 065F0005B50005950006950005570005500000 
00000000000000: 


‚ 786 
1017 DATA 000000: 
00505400505500555500D5A9, 894 
1020 DATA 0075AA0O0S6AL0054 
000005500001750001550001, 1044 
1021 DATA 55000155000155000545000545000545000515 
000515002DAF003BAFOOSFAE, 1222 
1022 DATA 002FAFO00BEA00020200000000000000000000 
000000400000400000400000, 663 
1023 DATA 40000040000040000040000040000000000000 
0000B000008A0000EAB000EA, 1182 
1024 DATA AO0OOFAAOOOAABOOO: 
000000000000000000000000, 900 
1025 DATA 00000000000000000000000000000000000000 
000000000000000000050000, 5 
1024 DATA 70000155000 1D500055F0007B5000695000595 
000585C000532.000000000000, 1218 
1027 DATA 00000000000000000000000000000000000000 
000000000000000000405400, 148 


00 
1027 DATA 0001550001 5500005500005500005500005500 
015400015400005400030800, 998 


1050 DATA OBFAO0OFBAOOOBFE0002AA0002020000000000 
00000: 


1032 DATA 

00000 0000, 1128 
1035 DATA 
000000000000000000000000 


068500069500045500055500, 1117 
1035 DATA 01550000000000000 
000000000000000000000000, 86 
1036 DATA DSAIO0FS5AA 
0056AC005420004000000000, 1587 

1037 DATA 00000000000003550001050001750001450001 
450005410005410005410005, 775 

1058 DATA 010035A100BEABOOEFABOOBEABOOOBABO0002B 
000002000000000000000000, 1574 

10359 DATA 00000000000000400000400000400000500000 
500000500000500000500000, 592 

1040 DATA 400000400000400000EA0000FAA000BANOOOFE 
8000AE000000000000000000, 1732 

4041 DATA 00000000000N00000000000000000000000000 
000000000000000000000000, © 

1042 DATA 00000000000009000000000000050000700004 
550001770005AD000595000D, 714 

10453 DATA 55000755000755000505000000000000000000 
000000000000000000000000, 487 

1044 DATA 00000000000000000000000000005400505500 
SSITO0DFAFOOSSAAOOSAACOO, 1535 

1045 DATA 542000C0000040000050000000000575000545 
000501001501001500001400, 717 

1046 DATA 0054000350000350000F: 


000050000054000054000054, 492 

1048 DATA 0000540000500000500000500000F00000FA00 
VOOFEAOOOEEAO0OFFE0202020, 210% 

1049 DATA 20202020202020202020202020202020202020 
202020202020202020202020, #972 

1050 DATA 2020202020202020202020202020204E4F5050 
505050505050505050505050, 1757 

1051 DATA 50505051522020202020202020202020202020 
202020202053545555555555, 1603 

1052 DATA 55535457555555555555555535582020202020 
202020202020202020202020, 1740 

1053 DATA 2020595ASBSCHDSESF 650616263646566676867 
6A6B4C352020202020202020, 2375 

1054 DATA 20202020202020202020206D4E5F 7071727374 
753767778797A7B7C7D7E7FBO, 2722 

1055 DATA 81202020202020202020202020202020202020 
208263555559593959333555, 1763 

1054 DATA 55555555555595848586202020202020202020 
202020202020202020204E4F , 1759 
1057 DATA 
202020202020202020202020, 1707 
1058 DATA 202020202020205354559555555555555565755 


152 


SCSIDIESF&061626364656667, 1952 
1050 DATA 684964A5B6C5520202020202020202020202020 


85) 
<150> 
<218> 
“36> 
<29> 
<57> 
<162> 
<244> 
<117> 
<227> 
<151> 
<a2> 
<17> 
<142> 
<B2> 
<144> 
<190> 
<ı82> 
<238> 
<29> 
<174> 
<a1> 
<177> 
<132> 
<173> 
<B6> 
<3> 
<197> 
<131> 
<152> 
<172> 
<115> 
<144> 
<256> 
<116> 
<63> 
<o4> 
<208> 
<128> 
<110> 
<233> 
<176> 


2020202020206D4E6F 707172, 1992 

1061 DATA 737475767778797A7B7C7D7E7FB08120202020 
202020202020202020202020, 2342 

1062 DATA 20202082835555555555555555555555533555 
559584850620202020202020, 2340 

1063 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

1064 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

10655 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

10654 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

1067 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

1068 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

1057 DATA 20202020202020202020202020202020201B3E 
SFSB2Z0OZEZ02A2B202E203A3SB, 1177 

1070 DATA 203E3FA0IEIF402ESAZASASB2020282A2BZEZE 
SASBSESF404647123C3C3C20, 1647 

1071 DATA 2F202C20202F2050C30D204142434142432F3C3D 
SC30202020202D2F2F3C3D41, 1570 

1072 DATA 42434548202020202020202020202020202020 
202020202020202020202020, 1138 

1075 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

1074 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 972 

1075 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

107& DATA 2020140805200001 13142014090005200F0620 
!100C01190512312009132020, 595 
‚1077 DATA 30302050502020202020202020202020202020 
'202020202020202020202020, 105& 
'1078 DATA 20202020202020202020202020202020202020 
20140805200C011314201409, B1B 

1079 DATA 0D05200F052010060119051232200913202030 
302030302020202020202020, 834 

1080 DATA 20202020202020202020202020202020202020 
202020202020202020202020, 992 

1081 DATA 2020202020282A2B2E2E3IAISBSESF404647494A 
2A2B202A2B202E203ASIB203E, 1494 

1082 DATA SF403ESF402EIAIASIAIB2020282A2B2E2EIAZB 
SESFAOLHATAFAAZAZBZOZAZB, 1672 

1003 DATA 202E203AFB20ILIFAOSESFAOZESASAFASBZOZO 
282AZBZEZESASBSESF404647, 1694 

1084 DATA 494A2NZB202A2B202E203A3BZOIESFAOSEISFAO 
ZESASASASB202020282A2BZE, 1532 

1085 DATA 2ESASBIEIFAO4647494A2A2B202N2B202E203A 
SB20IE3SFAOFESFAOZEIASAIA, 1697 

1086 DATA 352020282A2B2E2ESASBZESF404547494A2A2B 
Z02NZB202E203A3B203E3F40, 1584 

1087 DATA SESF4O2ZESASASA3B202020282A2B2EZEIASBSE 
3F404647A94A2AZB202A2B20, 1607 

1088 DATA 2E203R3B203E3SF40SESFAOZEIAZASASBZ202028 
ZAZBZEZESASBSESFAOAGATAF, 1685 

1089 DATA 4A2A2B202A2820292C2D2F2F3C3D4 142434548 
48302C20D20202D202F203C30, 1567 

1090 DATA 20414243414243203CIDSCSD20202020202FZF 
SC3D4142454548483502C2020, 1698 

1091 DATA 2C20D202F203C302041942434142432FSCIDSCSD 
2020292C02D2F2F3C30414243, 1645 

1092 DATA 454848502C2D202C20202F20503D2041424341 
42432F SCIDISCSD202020292C, 1614 

1093 DATA 2D2F2FSC3D414243454848502020202020202F 
ZOSCSDZ041424541 AZASZFIC, 1707 

1094 DATA 3D3C302020292C2D2F2FSCSD414242454B4930 
2C2D202020202F20SC3D2041, 1602 

1095 DATA 42434142452FSC3DSC3D202020292C2D2F2F3C 
5D4142454548483D2C20202C, 1698 

107& DATA 2D202F203C3D0204142434142432F3C3D3C3D20 
202F2C2D2ZFZFICID4 1424545, 1670 

1097 DATA 484935D2C0202026.2020AD00DD29FCBDOODDAFOB 
BDL1EDOAFCOBDBBOZAFFFEDIS, 3272 

1098 DATA DOBD1CDOAF00802500N97058025D00A701802700 
8D28D0A7088D2BDOBDZCDOAF, 3780 

1097 DATA 0BBD29D08D2ADOEDZDDOEDZEDOTEAF0O1EDONDE 
AF7O18D1ADOAF048502AD727F, 3512 

1100 DATA 8D12D00A9108D1 1D0A77BED1403A97580150358 
60AD17DOBSD1F7DOZF01D0034C, 3147 

1101 DATA L976C6021004A9038502A602BD757FBD21D0EO 
O1D07C20647720A17B8ADBE7F , Z441 

1102 DATA SDFBCSADBFT7FEDFFLIADCOTFEDFACLSADELTFED 
FREZAOL1BIDEFFFFFFCFBEDO, 5488 


Compube mib 


<ı175> 


<225> 
<127> 
<128> 
<129> 
<130> 
<151> 
<132> 
<139> 
<179> 
<134> 
<59> 
<137> 
<158> 
<139> 
<34> 
<108> 
<176> 
<1535> 
<144> 
<141> 
<i126> 
<97> 
<> 
<180> 
<7> 
<208> 
<9> 
<17> 
<132> 
<26> 
<229> 
<145> 
<121> 
<239> 
<74> 
<170> 
<216> 
<119> 
<200> 
<15> 
<199> 








1105 DATA F7ADF27FC9ID2I0034CBB78CE7B7F3BAF1IEDBA 
7FORNONOAGSDFOTFAGADFL7F&D, 4187 
1104 DATA FO7FEDF17F9003CE7BTIFAD7B7FCIDOF0034031 
TAR9D7BD7B7FEEFZFFAEFZIF, Ab2& 
1105 DATA A0O28ED3B735991FC3BD35747747CICABBDOFOEA 
ACBB7FSADCATFEDFECSADCRFF , 4710 
1104 DATA BDFDESADELFFEDFELSADEDFFBDOFFESAGO2E003 
006520647720E377A011BICD, 46797 
‚4107 DATA 7F97FFCFOBDOF7ADFS7FC9D29I0034CB975N705 
8D25D0OCE7D7FSBAF1IEDEOTF, 4575 
1108 DATA OAOAOABDFS7FIBADFATFEDF3STFEDFATFFOOSCE 
?D7FAD7DFFC9IDOFOOSACHR7&, 4064 
1109 DATA N9D78D7D7FEEFS7FAEFSFFAOZEBDSB739767C1 
ED337A999FL1CABBDOFONGO2, 4746 
1110 DATA ED7AFFBD16DORD727FAD12DOBAFOOLEBABHEAA 
684020F075202477205F 7920, 3567 
4111 DATA 457B20AE7B20157C20617C20F77C20AC7E2019 
7DACSLEAADFSFFC9D2700160, 3422 
1112 DATA CETE7FFOOLSOAL?F7FBF8B07FEDFETFBIBATFED 
CA7FB?7A7FRDCB7FBIFETFED, 4518 
1113 DATA CEFFBIABFFEDED7FCBEOOADOOZAOGOBETFFF&AO 
ADF27FCFD2F00180CEB2FFFO, AA 
1114 DATN O150ACB37FBIBATFEDB27FBIGAFFEDBEFFBYFIA 
7FBDBFFFBITIETFBDCO7FBIAGB, 4623 
1115 DATA 7FEDC17FCECOOADOOZAO00BCBS7FEOAFO0BDF& 
7FBDF77FEIDF9FFRDFAFFADFS, 4553 
1116 DATA 7FEDF&7FAOOBLBADF&AFTFADFS7FEDFA7FADFT7TF 
SFOOEDF77FEBDOEBSBAFDFED, 4797 
1117 DATA 7D7FADFB7FIBADFATFEDFE7FEDFA7FADF7IFER 
O0O8DF77FADFZFFBDFF7FAOOB, 4730 
1118 DATA 18ADF97F&DF27FBDF97FADFATFSIOORDFATFBB 
DOEBSBAFDTED7B7FEDTB7FI1B, 4790 
1119 DATA ADFYFFADFB7FEDF97FADFAFFEIOOBDFAFF&OSB 
ADFAFFEDFFFFEDFC7FBOOSEE, 4974 
1120 DATA FATFSBADFF7FEDFAFFBDFDFFADFD7IFCIFFFOO05 
CO0FOS450ADFC7FE97797042, 5120 
1421 DATA LFAFFOIDSBAIOOEDFETF&EDDETFEDLETFEDD27F 
&7189DDOTFEDD47FAFOOBDDE, 4409 
4122 DATA 7F&EOAFOABDDETFSBAPAEEDFCIFEDDOFFEDDA?F 
SBNFOOEDFEFF&EDDEFFEDLE?TF, 4628 
1125 DATA BDD27F&0AFOFBDDETFZBAFFLEDFCTFRDLEFFED 
D27F&9178DD07FBEDDA7F&EOAD, 4544 
1124 DATA FE7FE9BFFOOSACHF7BADDSFFEDFEFFEDLETFED 
D27F67178DD07F8DD47FAF00, 4544 
1425 DATA BDDE7F&OAFOOBDDE7FEDDOTFBDDA7FEDDZ27FED 
CE7F&OSBADFFTFEDF&EIFEDFE, 4857 
4126 DATA 7FBOOZEEF77FSBADFATFEDF7TFEDFD7FADFDFF 
CIFFFOOSCIOOFOBSSOADFCFF „ 5099 
1127 DATA 19977042C9AFF01DSBAFOOEDFETFEDDF7FEDET 
FFEDEB7F&I1GSDEIFFBDEDTF, 4548 
1128 DATA AYOOBDEFTF&OAPAORDEF7FSSAFAEEDFETFEDEI 
7FSDED7FSBAFOOEDFCFFÖDDF, 4802 
1129 DATA 7FEDE?7FEDEB7FEOAIFORDEFTFSBAFFGEDFLTF 
SDE77FEDEB7F&I17BDEF7FED, 4904 
11350 DATA EDFFSOADFLFFLIBFFO034LADT7FADDFFFEDFCTF 
8DE77FODEB7F69178DEF7FED, 4688 
1131 DATA ED7FAFOOBDEFFF&OAFOORDEFFFEDEFTFEDEDTF 
SDEBFFEDETT7F&LOADBOFFLI14, 4565 
1152 DATA BO15C911B037C90EBOSECI0BBO7ICIOSBOOSAL 
537AAC1O7AAFOCEDBITFFEDB4,, 33537 
1133 DATA 7FEDB57F8D897FA970680827FBDBES7FEDB77FED 
857FADBO7FEDBS7F4C5S77AAF, 3996 
1154 DATA OASDB17FEDBA7FEDBATFEDBITFAIOSEDB2TFED 
837FBD877FBNSB7FADEOFFED, 3961 
1135 DATA 857F4C577AAFOBSDB1 7FEDBATFEDBETFEDBTTF 
A7048D827FED837FE0877F8D, 3840 
1155 DATA 887FADB07FEDAS7FACS77AAFOSEDELTFEDBATF 
EDBS7FEDBF7FAFOIEDEZTFED, 3867 
1157 DATA 837FED877FED837FADBOTFEDES7FACS77AAIOS 
8DB17FEDBAT7FEDISTFEDSFFF, 3957 
1138 DATA A9028D827FEDB37F80877FEDEB7FADBOTFEDEBS 
7FAC577AAFOABDELFFEDGAFF , 3959 
1157 DATA 80867F80D897FA70280827F80D937F8D877F8DE8 
7FADBOTFEDESTFADBAFFCI14, 4112 
1140 DATA BO1&C91 1B035C90EBO54L90BB07ICIOBBOO3AL 
237840007BAF0CSDBS7FEDBE, 3399 
1141 DATA 7FEDBATFEDBD7FAIOSEDBSTFEDB7FFENBB7FED 
BC7FADBA7FEDBIFFEOAFOABD, 4374 
1142 DATA BS7FODBOTFEDBATFEDEDF/FAFOSEDBATFEDB7TF 
BDBB7FODBC7FADBAFFEDBFTF , 4590 
1143 DATA 40AF0BEDBS7FEDBA7FEDBATFEDBDTFAFO4BDB&A 
7FGDB77FEDBBF7FEDBE7FADBA, 4423 
1144 DATA 7FEDB97F&EORFO6BDBSTFEDBATFEDBATFEDBDTF 
A703GDB57FEDB77FEDEBFFED, 4332 
1145 DATA BE7FADBATFEDBF7F&OAFOSEDBSTFEDBITFEDBA 


*135> 
<1B6> 
<30> 
<84> 
<188> 
<177> 
<152> 
<225> 
<64> 
s96> 
<142> 
<62> 
<180> 
<64> 
<125> 
<211> 
<50> 
<31> 
55) 
<142> 
<87> 
<218> 
<121> 
<242> 
<15B> 
<255> 
<202> 
<217> 
<335> 
<152> 
<61> 
<129> 
<225> 
<213> 
<S5B> 
<128> 
<87> 
<70> 
<10> 
<a) 
<230> 
<237> 





programme 


FFEDBD7FAIOZEDBETFEDB77F, 4402 
1145 DATA BDBB7FSDBC7FADBAFFEDBFTF&EOAFO4EDBSTFED 
BA7FBEDBA7FEDBDIFAFOZEDR&A, 4419 
1147 DATA 7FEDB77FODERT7FBDECTFADBATFEDBITFEOADFS 
7FC9D2FI00160ADOLDE2FOAFO, 4394 
1148 DATA OAADO1DE2F05F00DAGTETBADTFFFC9OSBOODAC 
T7EFBADIFTIFCIOSF003AL7E7B, 3283 
1149 DATA EEFEFFADFEFFCFIAFOOFSOLEFETFCEFETFADFE 
7FC9IO2F701260AF02UDFEFFAD, 4800 
1150 DATA BOFFLIOSBOOLAOLCEBOFTFEOAFLSEDFETFADBOTF 
CILBFIOOLSOEEBOFFEOADF27F, 4026 
1151 DATA C9ID29001&0ADOODL2I04F00AADOODE.2F0BFO0D 
ACESTBADBSTFCIOSBOODAICES, 3644 
1152 DATA 7BADBSTFCI059I0034CE67BEEFFFFADFFFFEF1A4 
FOOF&0LEFFFFLEFFFFADFFFF, 4862 
1153 DATA C902901260NF020DFF7FADBA7FLF705B00150CE 
B47F&0AFLSBDFF7FADBAFFC9, 4115 
1154 DATA 18900150EEB47FA0NZZHDFOL1AOOOAEBOTFER 
EO1EBO1518B9FOC1590199F0, 4098 
1155 DATA C1LC927DOEECBAF23FIFOC1AC2OTCAI2ZEDAECZ 
AOOOAEBATFEBEOLEBOLE1ABF, 4343 
1156 DATA ABCISIO1IFABCTCH27DOEECHBAFZZIFHBLSACHS 
FCHOADFSFFCID2I00160EE62, 4489 
1157 DATA COEES2CONDSZCOCFSABOOLHOSEADAZLOEIOAGD 
62COEESICOADSICOCFSABOO1, A333 
1158 DATA 6038AD&A1COEFOABD&E1COEESFEOADSFOOLFSABO 
O1603BADSFLOEFOARDSFÜUOEE, 4229 
1157 DATA SECOKOADF27FCID2I001S0EEA2CZEEAZCZADAZ 
C2E9ISNBOOLHOSBADAZLZEFON, 4269 
1160 DATA BDA2LZEE41CZADALC2CIZABOOLLOSBADALU2EI 
ONGDAICZEESFEZADIFC2CISA, 4177 
1144 DATA BO0160IBADSFL2EIONADSFLZEEIEO?EOADOAHO 
CFOLFOOICFOZFOOBEFOSFOOD, 3659 
1162 DATA 60A914BDBOFFAOAFODBDBOTFAOAFOREDEOTF&EO 
ADFSTFCID2BOOLSOADF27FC9, 4092, 
1163 DATA D2BOOLA0EAADSECOEDOABOADSFEOBDOBHOADEL 
COSDOCBOADSZCONDODBSOADSE, 3918 
1154 DATA D2BDOEBOADSFL2BDOFBOAD41C2HD1OBOADA2UZ2 
80110020164 7ENFRCSDOLDOBD, 3607 
1165 DATA 03D0AFA1BDOSDOSDO7DOAFFFEDOFDORDOBDOAF 
B49D0DDOBDOFLOAFHESDOBDO, 4008 
1165 DATA BDOCDOAFESEDOADOBDOEDOAFLOBDFELSAFLI1SD 
FIESZAFLZBDFACSAFASODFECS, 4474 
1167 DATA A9208DFCCIAIZ1EDFDCSAF22BDFECIAIZSBDFF 
C5A7098D25DOAF0EIDZODOAD, 44697 
1168 DATA 0EBOBDB7CSADOFBORDBECSADIOB0BDBACSADII 
BOHDBRTSADOABOBDETLIADOB, Alll 
1189 DATA BORDSBESADOCHOSDLACTADODEORDHBCZACBATE 
AOFARFZOFFFFBFIFFICOFIFS, Abba 
1170 DATA CI9IFEDU2AFOBIIFFD7IFFFDEFIFFSDIFIEDDAAI 
20B3D0E160AOFABISSAFFIFF, 5482 
1171 DATA BFBIAD7099F9C0B9A77199F3SC1B9417299EDC2 
AFOBFFFFDIIIFFDEIIFSDIAH, 5268 
1172 DATA 0099EDDABBDODSSOAFIOEDIECZEDSFCZED41C2 
5D42CZBVSECOBDIFCORDELICH, 4357 
1173 DATA 8062C0A92 18DEFÜL1EDATCSNIZZBDABCISEDAICS 
PDAATSEDABCSSDACTZIDADCT, 4952 
1174 DATA BDFOCIEDFOCIBDFITIBDFZCIEODFSCIEDFACIED 
FSC1A9228DF7CI1GDAFCIAI2S, 5532 
1175 DATA EDFALISDAECSAFI00BD520BU06 1DBEDSFDBRDSE 
D88042DA3D41DAUDSFDABDZSE, 4545 
117& DATA DALOFEAITESDL1405AI7EBD1S03AF008D12DOBS 
025840AD19D08019D002901D00, 3319 
1177 DATA OS4UFATECEO21004N9028502AL02ED03H0HD21 
DOBDO7B08023D0BD00808H12, 3035 
1178 DATA DOBAFOOSHBABLBAAHBAOZ2OOSTFACSLEAASCREY 
OAFOODLFOSFOLICFOAFO1SC9H, 3788 
1177 DATA 035F019640A70190058040397FA9028006804C37 
FFAIOZEDOHBOACSITFAFOORD, 2792 
1180 DATA 06904C397FA92BEDFS7FEDF27FAF17EDB07FED 
BA7F2Z0F27D20447EAF059025, 35640 
1191 DATA DOAFOBBD23DOAF008020007EA9YEED1403A975 
8D1803A7008D12D0B5025840, 3233 
1182 DATA SEE49BBE00050007000000000101050C.040L0C 
1R0C06040C.10141810202420, 1722 
1183 DATA 101814111519102125211D1P15121&1N1E2224 
221E1N1613171B1F2327231F, 862 
1184 DATA 1B1701010A0C05050L.180C06050C0101010101 
010101010101010101010176, 324 
1185 DATA HFAESIFATERETEIGSSNESSIHAARELAOOFSEIAE 
D1F6DAAEDEISNDAEADFECZNE, 4640 
1136 DATA 620000000200000200000000000000000101B4 
7000020007000D0000P000000, 954 
1187 DATA 0000000000FF, 255 

ENDE DES LISTINGS 
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<239> 
<91> 











iergebiete dürften beim Commo- 


mageren Befehlssatz ausgestattet ist, insbe- 
sondere im Bereich Grafik und der Sprite-Animation, bietet _ eine 
Befehlserweiterung geradezu an. Die grundlegenden Ei ‚vor 
allem die Parameterü , wurden im letzten Teil unseres Kurses 
schon erläutert. Wir wollen uns nun etwas näher mit den Grafikeigen- 
schaften insbesondere mit dem VIDEOCHIP des C64 auseinanderset- 
zen as eine kleine SPRITE-Befehlserweiterung programmie- 
ren zu können. 


Eines der interessantesten 


Der VIDEOCONTROLLER VIC 6567 des Commodore 64 


Im Gegensatz zu früheren Computer-Systemen, besitzt der Commodo- 
re 64 zur Unterstützung der Bildschirm-Verwaltung einen speziellen 
Bars VIE yasnen ug Hürde Aufbereeuie ale Viedgne Di 
urz t, ie Aufbereit je, wie 
auch für die flexiblen Grafikeigenschaften Bes Coiaodre 64. 
In der Praxis bedeutet dies, daR die Darstellung von Sprites vollkom- 
men vom VIC übernommen wird, Flackern oder Neu rl 
sprobleme wie sie auf früheren Computersystemen üblich waren, fallen 
beim C64 ganz weg, 


Wie läßt sich der VIC beeinflußen ? 


Um Sprites bewegen, oder Zeichen definieren zu können, muß der 
VIC-Chip beeinflußt werden. Um dies zu erreichen, belegt der VIC- 
Chip einen bestimmten Adressbereich des Rechners. In einem unserer 
letzten Teile haben wir schon mehrmals den YO Eingabe/Ausgabe- 
Bereich erwähnt. Ein kleiner Teil dieses Bereiches (47Byte) wird vom 
VIC genutzt. Man nennt die 47 Byte, welche den VIC beeinflussen 

, steuern auch Register. Numeriert man die Register der Reihe 
nach durch, so liegt Register 0 auf der Speicherstelle 53248 ($D000) und 
Register 46 auf Speicherstelle 53294 ($DO2E). Um diese Register zu le- 
sen bzw. beschreiben zu können, muß natürlich der VO Bereich akti- 
viert sein, der Zeichengenerator oder das darunterliegende RAM kann 
also nicht gleichzeitig manipuliert werden. 


Die Register des VIC 


Die nachfolgende Tabelle zeigt die Adresse sowie die Bedeutung jeder 
einzelnen Eye auf. Übrigens ist in der Standard Konfiguration nach 
dem Einschalten des Computers der VO Bereich aktiviert. Dadurch 
können die VIC-Register auch von Basic mittels POKE erreicht 


werden, 


Register Adresse Funktion 


53252 
53253 


0 53248  Sprite 0 X-Koordinate (0-255) LOW Byte 
1 53249  Sprite 0 Y-Koordinate (0-255) 

2 53250 Sprite 1 X-Koordinate (0-255) LOW Byte 
3 53251 Sprite 1 Y-Koordinate (0.255 

4 

5 


Sprite 2 X-Koordinate (0.255) LOW Byte 
Sprite 2 Y-Koordinate (0-255 


SURERBESANS 


18 
19 


21 


28 





53254 
53255 
53256 
53257 
53258 
53259 
53260 
53261 
53262 
53263 
53264 


53265 


53266 
53267 
53268 


53269 


53270 


53271 
33272 


Compute mib 


ASSEMBLERKURS 


Teil 20 


Sprite 3 X-Koordinate (0-255) LOW B 
Sprite 3 Y-Koordinate er 

Sprite 4 X-Koordinate (0-255) LOW Byte 
Sprite 4 Y-Koordinate (0-255) 

Sprite 5 X-Koordinate (0-255) LOW Byte 
Sprite 5 Y-Koordinate (0-255) 

Sprite 6 X-Koordinate (0-255) LOW Byte 
Sprite 6 Y-Koordinate (0-255 

Sprite 7 X-Koordinate (0-255) LOW Byte 
Sprite 7 Y-Koordinate (0-255 
X-Koordinate High Bit: 

Bit O = Sprite 0 

Bit 1 = Sprite 1 

Bit 2 = Sprite 2 

Bit 3 = Sprite 3 

Bit 4 = Sprite 4 

Bit 5 = Sprite 5 

Bit 6 = Sprite 6 

Bit 7 = Sprite 7 


Verschiedene Funktionen: 
Bit 0-2 Y-Position des Screen 
(für SOFT-SCROLL) 


Bit 3 Umschaltung zwischen 24 u. 25 Zeilen (1) 


Bit 4 Bildschirm EIN (1) 

Bit 5 HLRES Grafik (1) 

Bit 6 Hintergrund Mehrfarbig (1) 
Bit 7 Rasterwertregister High Byte 


Rasterwertregister (Bits 0-7) 
Light-Pen X-Koordinate 
Light-Pen Y-Koordinate 


Sprite Ein/AUS: 
Bit O Sprite 0 ein 
Bit 1 Sprite 1 ein 
Bit 2 Sprite 2 ein 
Bit 3 Sprite 3 ein 
Bit 4 Sprite 4 ein 
Bit 5 Sprite 5 ein 
Bit 6 Sprite 6 ein 
Bit 7 Sprite 7 ein 


Verschiedene Funktionen: 
Bit 0-2 X-Position Screen (SOFT-SCROLL) 


Bit 3 Umschaltung zwischen 40 und 38 Spalten 


Bit 4 Mehrfarbenmodus 
Bit 5-7 nicht benutzt 


Sprite 0-7 Y-Vergrösserung 

Bit 0 nicht benutzt 

Bit 1-3 Adresse des Zeichengenerators bzw, 
Bitmap ; 

Bit 47 Adresse des Bildschirmspeichers 





187 





Unterbrechungs-Flag-Register: 





w25 53273 
Bit 0 Rasterinterrupt 
Bit 1 Kollision Sprite-Hintergrund 
Bit 2 Kollision Sprite-Sprite 
Bit 3 Interrupt Light Pen 
Bit 46 nicht benutzt 
Bit 7 eines der Bits 0-3 gesetzt 
26 53274 _Unterbrechungs-Maskenregister: 
Bit 0 Rastervergleich ein 
Bit 1 Kollision Sprite-Hintergrund 
Bit 2 Kollision Sprite-Sprite 
Bit 3 Unterbrechung duch Light-Pen 
Bit 47 nicht benutzt 
27 53275 Sprite 0-7 Priorität 
28 53276 0.7 Mehrfarbig 
29 53277 __Sprite 0-7 K-Vergrösseru 
30 53278 Sprite 0-7 an rite te Sorite Kollision anzeigen 
31 53279 Sprite er Kollision anzeigen 
32 53280 Randfarbe 0.15) 
33 532831 Hintergru 1.(0-15) 
34 53282 Hintergrundfarbe 2 6: 
35 53283 Hintergrundfarbe 3 (0-15 
36 53284 Hintergrundfarbe 4 (0-15) 
37 53285 Sprite-Vielfar er 0 (0-15) 
38 53286 Sprite-Vielfar! er 1 (0-15) 
39 53287 Shrhe 0 geriewenen oe 
40 53288 Sprite 1 Farbregister (0-15 
4 53289 Sprite 2 Farbregister (0-15 
42 5320) Sprite 3 se 0-15 
43 53291 Sprite 4 Farbregister (0-15 
En: 53292  Sprite 5 Farbregister (0-15 
45 53293 _Sprite 6 Farbregister (0-15 
46 53294 _ Sprite 7 Farbregister (0-15) 
Wie werden Sprites im Speicher abgelegt ? 
Wie schon aus der Tabelle zu entnehmen ist, wurde bei der Ent- 


wicklung des VIC Den viel Wert auf die Sprites (kleine Figuren) 

„ Diese Sprites lassen sich vorzüglich für Action-Spiele verwen- 

‚das sie sehr schnell arbeiten und automatisch auf Kollisionen reagie- 

ilt jedenfalls für Maschinenprogramme, in Basic dagegen ste- 

Asse BEIREINERNEIE, Din SE open: PER REED Kar ER 

Um nun in unserem Assemblerkurs gleich 

zwei rege a einer Klappe zu schlagen, entwickeln wir Pie Ma- 

schinenroutinen, welche vom Basic aus die Handhabung der Sprites et- 
was erleichtern. 


Um eine Spriteerweiterung schreiben zu können, benötigen wir genaue 

Um eins Sprserwesrung ren önen ben wir ea 

andigend, nöche cha a Kl el eher a 
sind, möchte ich an r Stelle noch einmal etwas genauer 


ites können bin Hi in zwei verschiedenen A er, 
sell werden - HIRES oder Multicolor. Hiressprites erlauben 77 


eine Auflösung von 24 * 21 Pixel, allerdings nur in einer Farbe. Multi-. 


dagegen können in 4 verschiedenen Farben (incl. Hinter- 
) dargestellt werden, haben jedoch nur halbe Auflösung. 


Ten wollen uns an dieser Stelle nicht mit dem Aufbau des Bee 

beschäftigen, da dieses mittlerweile in jedem zweiten Artikel über den 
ec ne Ein Sa Dirnee ma Makiate nie 

Fi w ren von N) 

Hires-Sprites stark vereinfachen. Wer noch keinen Spritedesigner be- 
sitzt, kann übrigens das Basic-Listing am Ende dieses Teiles eingeben. 
Dieses kurze amm erlaubt das einfache Erstellen von Hires- 
Sprites. Die Spritedaten werden automatisch in Dara-Zeilen gewandelt 
und im le abgelegt. 


kurs 


Perl ob wir ein Multicolor- oder ein een definiert haben, in 

beiden Fällen belegen die Daten (Bitmap) genau 64 Bytes. Nun, wie tei- 

ER ich dem Videcontroller mit, wo die Daten von welchem Sprite 
egen? 


Diese ea ist berechtigt, denn bisher haben wir im Videocontroller 
noch kein Register en, welches diese A: 

könnte. Hierfür sind 8 Speicherstellen zu 

hinter dem Videoscreenende beginnen. Da der 
Einschalten im Bereich 1024 bis 2023 Iı 
RER I man den Vi 
deoscreen so werden auc tezeiger 
SE 


eier en den Sprchoc angeben. Die 


ln Auf hate Weine können Sreier be jebig in einem 
issepeine en werden. Die nachfolgende Tabelle ver- 


Zusammenhang noch einmal: 





Spriteblock von Sprite 0 
2041 Spriteblock von Sprite 1 
Spriteblock von Sprite 2 
Spriteblock von Sprite 3 
Spriteblock von Sprite 4 
Spriteblock von Sprite 5 


Penbesist cher * 64 
Adresse=Spriteblock * 64 
Adresse=Spriteblock * 64 
Adresse=Spriteblock * 64 
Adresse=Spriteblock * 64 
Adresse=Spriteblock * 64 
Spriteblock von Sprite 6 Adresse=Spriteblock * 64 
Shriteblock von Sprite 7 Adresse=Spriteblock * 64 
Spriteblock von Sprite 8 Adresse=Spriteblock * 64 


An dieser Stelle möchte ich meine Ei in die Welt der Sprites 
beenden. Im nächsten Teil werden wir mit unserer essen 
Kenntnisse einige nützliche $prite Experimente in Maschinensprache 
durchführen, 

Frank Brall 


Literatur: 

6502 Microcomputer-P: Peter Heuer, Hofacker-Ver' 
64 Intern, en an ken Enge Gerits, Data Becker Ei 
C6+ Progr: Winfried Kassera, Frank 
Kassera, Markt & Tnik 

Profihandbuch, H.L. Schneider, Werner Eberl, Markt und Technik 





C-64 LISTING + CHECKSUNMMEN (C Vv1.0) 





0 DATA &0000:REM ERSTE SPRITE-DATAZEILE <aa> 
1 REM *=* SPRITE-DESIGNER wu <10> 
2 REM ASSEMBLERKURS TEIL 20 <26> 
3 REM (6) 1983 BY C.LIPPE <174> 
a REH <147> 
5 REM <148> 
& REM <149> 
7 PRINT"IGLEAR DOHN3 RIGHTZI#MMLSPACEISPRITE-DAT 
AISPACEIREn" <149> 
8 PRINT" {DQHN23 SOLLENCSPACEISPRITE-DATNSCSPACEIT 
N{SPACE IPROBRAMMSPACEYEINGE-TSPACEZIFUEGT SPACE 
IUERDEN? (J/N) " <175> 
7 POKE19B,0:WAITLIB, 1:GETAS: IFA$="J" THENPOKE19B, 

0: 607087 <B7> 
10. PRINT" tCLEARI "3 1 POKE&SSO, 1284 FORI=1T0214 FORJ=1 

TO24: PRINT". "3 :NEXTIPRINTSNEXT <178> 
11 1=24: PRINT" CHOMEI"TAB(T)" CDONN RIGHTZIEPRITE- 

DATA" :PRINTTAB(T) " {RIGHT 2) umumummmmmm!! <111> 
12 PRINTTABETI"tDONN RIGHTICRSR-TABSTENLSPACEI=>" 
:PRINTTAB (I) " (RIGHT 3ISTEUERUNG" <250> 
13 PRINTTABLII" DOWN RIGHTYE#J{SPACEI=>":PRINTTA 

BET" ERTGHTSIPUNKT CSPACEIBETZEN" <205> 
14 PRINTTAB(LI"DQOHN RIGHTITSPADEITSPACEI=>"LPRI 
NTTAB(19" (RIGHTZIP. (SPACEILOESCHEN" <55> 


15 PRINTTAB(I) "CDONN RIGNTIFLLSPACEI=>"HPRINTTAB 
(II "KRIGHTIISPRITETSPACEIVER-":FRINTTAB(H) "{RIGH 
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T3IARBEITEN" 

16 PRINTTAB(I) "CDOHN LHOMEITSPACEI=>"+PRIN 
TTAB{T) "ERIGHTZICURBORISPACEIHOME" 

17 FRINTTABCTI"CDOHN RIGHTILELRITSPACEI=>" PRINT 
TAB{L)Y" CRIGNT3I BILDSCHIRM" zPRINTTABLI) " CRIGHT3>L 
VESCHEN” 

19 PRINT" (DOHN RIGHTZ SPACE)I (C) [SPACEYLIASTSPACE 
IBY{SPACEILIPPE TSPACEYENTERPRISESCHONEI "1 X=0: Y=0O 
zVR=1024 

Z=PEEK (VR+X+Y#40) 

21 POKEVR+K+AORY, 160 

GETA#: POKEVR+X+Y#40 „2 IFAS=""THENZI 

IFAs=" (F1I"THENSO 

IFAF=" (DOHNF"THENY=Y+1 

IFAS=" (UPF"THENY=Y-1 

IFA" CHOHEI"THENX=0: Y=O 

IFAS$=" (CLEAR) " THENGOTOLO 

IFAS=" SPACE)" THENPOKEVR+X+AONY „Abı KaX+1 
IFAg=" {RIGHTI"THENX=X+1 

IFAs=" CLEFTI"THENX=X—1 

1FASe" 4% THENPOKEUR+X+V#40,42:X=X+1 
1FX>ZSTHENK=O: Yay+ı 

IFY<OTHENY=O 

IFX<OTHENX=O 

IFY>Z2OTHENY=20 

GOTO2O 

50 DIMW(64) 1 X=0: Y=0:PRINT"CHQHE DOHN22 RIGHTEIBI 
TIEtSPACEIWARTEN!" 

55 FORI=0T020: FORI=OTO2S 

&0 IFPEEK (VR+1#40+J) =42THENW ( 1#S+ INT (3/8) )=W( 1#S 
+1NT (3/0) J0OR2” 7- (JAND7Y) 

70 NEXT=:NEXTSREADZs INPUT" (CLEAR DOWNS>NANETSPACE 
IDES{SPACEISPRITES: ";C$ 
71.PRINTPLLCLEAR DOWN2I"Z"REME "CH 

72, PRINTZ+10" {LEFTIDATA"3 1 FORI=OT015: PRINTRIGHTS 
tSTREIWLELYI „LENSTRE CHI) ) a) 

73 NEXTAPRINT"£LEFT 

74 PRINTZ+20" CLEFTIDATA" 4A FORI=-14T031:PRINTRIGHT 
SLSTREIWELY) „LENCSTREEWEIDI II -1 I" "5 

75 NEXTSPRINT"LLEFT SPACEI" 


N=8 


23 


SEREE 


“ao 
42 
43 
44 
a3 
as 
ar 
= 


«757 
<5r 


<245> 


<61> 
<174> 


.<170> 


«132> 
<3> 
<237> 
<234> 
<137> 
<113> 
<250> 
<an> 
<62> 
<249> 
<242> 
<250> 
<243> 
<1947 
<173> 


<144> 
<o> 


<A5> 


<106> 
<171> 


<ı19> 
<81> 


<a0> 
<835> 


76 PRINTZ+30" (LEFTIDATA"S SFORI=S2TO4B:PRINTRIGHT 
EISTIRECWELI) „LENISTREWLLII IA) "4" 
77 NEXT:PRINT"CLEFT SPACEI" 
73 PRINTZ+40" LEFTIDATA" 3 :FORL=49T042: PRINTRIGHT 
FISTREWELII „LENLSTRELWELDII- LI" u" 
79 HEXTEPRINT"CLEFT SPACE)" 
809 PRINT"ODATN"Z+50 
91 PRINT"GOTOBZ" 
82 FORX=63110640:POKEX „15:NEXT:POKE198, 10: PRINT" 
CHOHE) "= END 
83 PRINT"IELEAR DOWNSINOCHTSPACEIEINMALTCI/N) " 
84 BETA: IFA$=" I" THENRUNLO 
85 IFAS-"N"THENZ=0rG0TOFB 
Bs BHTona 
87 INPUT" CDOWN2IPROGRAMMNAME: "3 B$ 
B8 PRINI" DOWN RYSONICHRVSOFFIASSETTESPACEIODER 
SPACE RVSONIDCRVSOFFI ISKETTE?"HWAITL9B, 13GETASFı 
IFAS« "C"ORAS>"D"THENBT 
R9 PRINT" DOHNFTASTEL DRUECKEN ,HENN" : IFAS=" 
D“ THENPRINT"RICHTIGE tSPAGEIDISKETTE(SPACEIEINGEL 
Ear." 
90 1FAS="L"THENPRINT"CABSETTELSPACEIAUFTSPACEIAN 
FANGTSPACE IPROGRANNSPACEIGESPULT (SPACEA WÜRDE. " 
1 POKE19B,0:WAIT19B, 11 PRINT" CDOWN2 RIGHTSIBITTE 
(SPACE) WARTEN! " 
92 FORK=2048T01E9: IFPEEK (X) ORPEEK (X+1) ORPEEK(X+2 
I THENNEXT 
93 %=X+1: POKE4S,XANDZ5S5:POKE44 ,X/256 
94 PRINT" CCLEAR DOWNZILOAD"CHR$ (34) BECHR# (34) 41 
FA$="D"THENPRINT" „8" 
95 PRINT:PRINT" tDOWN10IPOKE43, 1:POKE44 ‚8: RUNIO"; 
FORX=43110640: POKEX „131 NEXT 
76 FOKE1FB, 10: PRINT" CHOHEI”"F3END 
7B PRINT" CLEAR DOWN2Y" ZiPRINT" Zur Z+1" 1 GOTOIBCHE, 
MEI" 3 sPOKE&S1 „13: POKESAS2, 13: POKE1FB, 24 END 

ENDE DES LISTINGS 








<1B1> 
<85> 


<248> 
<897> 
x54> 
<15> 
<177> 
<106> 
<i1l6> 
<125> 


<221> 


<58> 


75? 
<1635> 
<204> 


<121> 
<82> 


«202> 


<10> 
<207> 


<150> 





Interrupiprogrammierung auf dem Commodore 64 


Artikelserie von Daniel Durstewitz und Waldemar Raaz 
il 2 


Ergänzung zum Artikelabschnitt »RESET« 


Eee sollte in der letzten Folge dieses Kurses im Anschluß 
labschnitt »RESET« ein kurzes Maschinenpro- 


en das die Initi 


des RAMs, der Vektoren 


Er übernimmt. Wie Sie sicher schon bemerkt haben, wurde 


Ba Ko ehabeny 


eg reg 


an dieser Stelle nachholen: 


STARTROUTINE FUER EIGENE PRÜGRAMFE 


EZIZS2ZES ZEIT SI SIEHTS SI 


JSR +#FIA3 
JSR $FD58 
JSR $F115 


INTERRUPT VORBEREITEN 


YIDED-RESET 


BASIC-VEKTOREN SETZEN 

RAM INITIALISIEREN 
NEH-BEFEHL AUSFUEHREN 
NMI-EINSPRUNG ZUM HARMSTART 


an in ka a ar et ir ni 


JMP $E336 


ARBEITSFEICHER INITIALISIEREN 
HARDWARE- UND I/O-VEKTOREN SETZEN 





leider Auer so etwas kommt in den 
gruen (0 enwas kommt in den 


3. NMI (Not Maskable Inter- an. Fo) 


ich wird ein NMI ausge- 
dieser Pin mit dem 


rupt) 
Während die Anwendungsmög- 
lichkeiten des Reset und des 


löst, 
Massepin am Expansionport ver- 
Bere wird. Diese NME-Quelle 


Breaks relativ wi ei wie die ist für externe Bau; oder 
ngen haben, Schnittstellen gedacht, die am Ex- 
kommen wir bei a folgenden pansionport des C64 betrieben 
beiden Interruptarten auf den ei- werden. Daher ist diese Möglich- 
gentlichen Kern des Artikels, der keit für uns weniger interessant, 
ee Interruptprogrammie- es ist eher ein Gebiet, auf dem die 
Hardware-Freaks zum Zuge kom- 

Zunächst einmal der NMI(=Not men. 
Maskable Interrupt, Nicht Mas- Die zweite Möglichkeit, einen 
kierbarer Interrupt): dieser nicht NMI auszulösen, dürfte selbst 


maskierbare, d.h. nicht durch 
Software abschaltbare In 


dem blutigsten Einsteiger _be- 
kannt sein, da man von dieser 


wird wenn Pin 4 Möglichkeit eigentlich ständi 
6510 k auf Masse Gebrauch macht: der Druck 
Re ne die RESTORE-Taste. Auch das 
verschiedene Arten Fairer löst einen Inter: aus. Der 
Die erste Möglichkeit ist ähnlich Computer unterbricht das laufen- 
der Resetauslösung, nämlich über de Programm, das er gerade bear- 
eine Schnittstelle des C64. Dazu beitet, rettet 

liegt am Expansionport an PınD und Prozessorstatus, holt aus den 
das -NMI-Signal des Prözessors Speicherzellen 65530/65531 (hex, 
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$FFFA/FFFB) die Startadresse 

der NMI-Routine und verzwei 

dorthin. In dieser Routine 

er unter anderem auch, o die 

RUN/STOP-Taste gedrückt ist, 

Ist dies nicht der Fall, so holt der 

Rechner Programmzähler und 

Prozessorstatus = wieder vom Stack 

und fährt mit der Bearbeitung des 

laufenden Programmes fort, als 
sei er gar nicht unterbrochen wor- 
den. ‚= die RUN/STOP-Taste 
hingegen Ickt, beiche er er die 
ti 

Fan ey JR une 

start durch — der Computer wie 

det sich mit einem » Y.x 

und blinkendem Cursor in der 

linken, oberen Bildschirmecke. 

An dieser Stelle zwei nützliche 

Tips: 

- Wenn man verhindern möchte, 
daß ein Anwender ein selbstge- 
schriebenes amm mit 

- STOP bzw. /RESTORE 
anhalten kann, so verbiegt man 
einfach den STOP- Vektor mit 
POKE808,251, 

- Bei Maschinenprogrammen bie- 
tet es sich an, den NMI-Vektor 
auf den Beginn Be er Der An 

mms zu ver An 
eier kann dep 
dann nicht mehr mit Ta 
stenkombination STOP/RE- 
STORE anhalten, da bei Beräti- 
g der RESTÖRE-Taste le- 
diglich das Programm neu ee 


startet wird. Dazu legt man 

we Speicherzelle 792 (hex. 
$0318) das Low-Byte der Starta- 
dresse des ei: Programms 
ab und in Speicherzelle 793 
$0319) das Byte. Be- 
Sie jedoch, daß in dieser 
Konstellation bei einem NMI 
nicht mehr die entsprechende 
Betrie emroutine durch- 
laufen wird. Dies schadet nicht 
weiter, doch sollten Sie nicht 
EUER mit eg 
ginn Ihres Programms - 
steminterrupt wieder freizu ; 

ben, den der R Ben! bei erfo) 
tem NMI sperrt, da sich der 

Rechner sonst meist »aufhängt«, 


Der durch die CIA #2 ausgelö- 


ste 

Die dritte Möglichkeit, einen 
NMI auszulösen, Veen ee 
das ICR (Interru Ser 

ster) in der CIA ei 
zu p mieren. Dieser Bau- 
stein schickt nämlich ein -Low- 
Signal an Pin 4 des Prozessors, 
wenn im ICR bestimmte Voraus- 
setzungen erfüllt sind, und löst 
damit einen NMI aus, Beim ICR 


(CIA-Register 13) muß man zwei 
Betriebsarten untersc : bei 
einem Le iff über einen La 
defehler auf das Register werden 
Beni Daten aus Saas - auch 
ister au un eic 
alle (1) Bits En Registers 
Bei einem Schrei auf . 
ICR per Speich hi er 
man ins INT-Mask-Register; da- 
bei dient Bit 7 dazu, zwischen ei- 
ner Art Bit-Setz- und Bit-Lösch- 
Modus umzuschalten: bei gesetz- 
tem Bit 7 setzt jedes ler-Bit unter 
den übrigen sieben Bir das ent- 
spreche: INT MASK-Bit, wäh 
rend ein Oer-Bit das en Keprechen 
Bit unbeeinflußt hißt. nei Bit 7 da- 
n nicht gesetzt, löscht ein 1er- 
it das zugehörige INT MASK- 
Bit und Oer-Bits sind wieder ohne 
Einfluß. er ac im ICR haben 
folgende - 
Bit 0: 1 Unter ” von Timer A 
1: 1=Unterlauf von Timer B 
er6/) 


2: 1=Uhrzeitundv. 
te Alarmzeit stimmen 
überein (Register8-11) 

3: 1=SDR (Serial Date Regi- 
ag voll oder leer, je 


ster12) u 

4: 1= negative am - 
Flag-Pin 

5: nicht belegt 

6: ni 

7: INT DATA : 1=min- 


destens ein Bit im INT 
MASK- und im INT DA- 
TA-Register stimmen 
überein 
INT MASK : Schaltbild 
Bit setzen / Bit löschen (s. 
Text) 
Die CIA #2 löst einen NMI aus, 
gr im MASK Renner eh sowie BR 
ein und 
erg Da- 
zu muß das entsprechende Bit im 
nn MASK- Se vom An- 
erden, um die 
Int quelle quasi 
cin Trifft das zugehöri 
Ereignis dann ein, so grahen = 
Rechner auch das enıs; 
Bit im INT DATA, 
hoch, und es erfolgt ein 
auch das siebte Bit im IT 
DATA-Register auf eins gesetzt 
wird. 
Die Interruptquellen 
Sehen wir uns die Ereignisse, die 
einen NMI der CIA #2 auslösen 
können etwas näher an: da sind 
zunächst einmal die beiden Timer 
Aund B in der CIA. Es handelt 


sich dabei um zwei 16-Bit Zählre- 
gister, die in Low-/High-Byte- 
Darste die Register 4/5 (Ti- 
merA) und 6/7 (TimerB) in der 
CIA belegen. Schreibt man in die- 
se Register einen Startwert hin- 
ein, so wird dieser im Systemtakt 
eine Einheit 
zählt, bis der Wert Null erreic 
ist. Dann wird das entsprechende 
Bit im N 1 abkängp Register 
gesetzt, vom Zu- 
stand des INT 
im ara ob diese Inerrupe 
freigegeben ist, ein 
Sr: oder er wird Grbendeüche 


Die nächste Int uelle ist die 
Echtzeituhr in der CıA. Diese 
Uhr ist nämlich mit der Alarm- 
funktion versehen: man kann eine 
bestimmte Alarmzeit vorwählen, 
und wenn erreicht, so 
wird Bit 2 im NT DATA-Regi- 

ster En a in Ab) 

vom INT 

wiederum ein Nies I Die- 
se Interruptquelle wird weiter und 
un 


soviel sei hier 
des SDR ist es Side ein B 
bitweise - also seriell = 
Pin SP am U: rt 
uns Be 
für Bit entweder aus dem SDR 
Register 12) auf den Pin SP 
oben (mit dem 
höchstmöglichen Bit voran), oder 
aber Bit für Bit wird von SP aus 
ins SDR Ob sich das 
SDR im Ei oder im Ausg 
bemodus befindet, darüber ent- 
scheidet Bit 6 des Registers 15 in 
der CIA. Ist es gesetzt, so ist das 
Abassen Vndhiig 
von ist das SDR nach acht Schie- 
beimpulsen entweder voll oder 
leer, so daß neue Daten 
werden. Dies anzuzeigen, ist 
Auf, de enger Bit im INT 
DATA BER Poren 
Gel gesetzt ee 
nämlich auf eins und 
somit alisieren, wenn Daten 
am SDR benärige werden oder 
vorhanden sind. Mit diesem Regı- 
ster lassen sich sehr einfach und 
komfortabel serielle Schnittstel- 


will, zueigen ee 
naues Studium der Datenblätter 
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er fa = empfehlen, da 
auch noch einige Timing- 
Probleme ergeben, die hier zu er- 
läutern zu weit führen würde. 
Ebenfalls in den Bereich der 
Hardware gehört die letzte Inter- 
ruptquelle der CIA: Bit 4 desINT 
DATA-Registers wird nämlich 
immer dann auf eins gesetzt, 
wenn am Pin-Flag am Userport 
(Pin B) eine negative Flanke, also 
ein Wechsel von logisch high auf 
logisch low auftritt. Diese Inter- 
ruptquelle eignet sich folglich her- 
vorragend zur Messung und Er- 
fassung von Impulsen. Denkbar 
wäre zum Beispiel eine kleine 
Schaltung aus zwei Lichtschran- 
ken, die mit dem - 
ersten 


Echtzeituhr in der CIA starten 
und entsprechend mit der zwei- 
ten stoppen. So wäre eine äußerst 
exakte Zeitmessung zu realisie- 
ren. Dies nur als Beispiel und 
Denkanstoß, der Phantasie 
Lesers sind in dieser Hinsicht kei- 
ne Grenzen gesetzt. 


Auswertung der Interruptim- 


ir wissen jetzt wie und 
2 Sri iz gen, wi un 
doch zunächst nützt uns dieses 
Wissen herzlich wenig; denn die 
bestehende NMI-Routine, die ei- 
nen erfolgten NMI behandelt und 
auswertet, steht im ROM und 
kann von uns nicht beeinflußt 
werden, so daß sie einen NMI 
auch nicht nach unseren Vorstel- 
lungen auswerten und e 
chend reagieren kann. Einen Ei 
griff in diese ROM-Routine 
macht erst die Vektoren-Technik 
möglich, derer sich der C64 reich- 
lich bedient. Gleich zu Beginn der 
NMI-Routine nämlich verzweigt 
der Rechner über einen Vektor, 
der im RAM (1) liegt, auf den 
nächsten Befehl der Routine. Dies 
erscheint auf den ersten Blick völ- 
lig unnötig, sogar unsinnig, doch 
erst durch den RAM. Vektor, den 
lagen, verändern kann, 
wird es möglich, die Se 
Pesigjedane gain ko 
tiger gesagt, zu erweitern. Man 
verbiegt einfach den Vektor auf 
eine eigene Routine, die am Ende 
zur NMI-Betriebssystemroutine 
verzweigt oder mit RTI ab- 
Be er 


eleichsarn einen Keil ins Betrieb, 


te folgt! 
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programme 
Bewerbung als Programmautor 


Name: Vorname: 
Straße: Wohnort: 
Titel des Programmes: Computersystem: 
Erforderlicher Speicherplatz: ____ KBytes 


Erforderliche Peripherie: 


Ich versichere hiermit, daßich der Autordesoben genannten Programmes bin und alle Rechte besitze. Ichbin damiteinverstanden, daß Sie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen, Das einmalige Honorar beträgt 120 DM pro abgedruckter Seite. 


Sollte das Programm nicht veröffentlicht werden, bitteich um Rücksendung meiner Unterlagen. Solltemein Programm in der Zwischenzeit 
von anderer Seite erworben worden sein, werde Ich Sie unverzüglich benachrichtigen. Ich bestätige durch meine Unterschrift, daß ich 
Kenntnis davon habe, daß der Tronic-Verlag gegen Personen, die Programme einschicken, deren Urheberrechte sie nicht besitzen, rechtli- 





che Schritte einleitet. 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: Diskette: 


Dokumentation: ________Listing: 


Rückporto: 


Unterschrift des Programmautors (bei Minderjährigen auch die eines Erziehungsberechtigten): 


Einsenden an: 


Schneider 


Electric 


Electric Gladiators ist ein Spiel für zwei Personen, es kann 
entweder nur mit Joysticks, oder mit Joystick und Tastatur 
gespielt werden. 


Es handelt sich dabei um eine Spielidee aus dem Film Tron. 
Die Spieler steuern jeweils ein Lichtmotorrad, das eine Licht- 
mauer auf dem Spielraster hinter sich herzieht. Man darf we- 
der die Lichtmauer des Gegners berühren, noch die eigene 
oder die Außenwände des Spielfeldes. 


Mit steigendem Level, nimmt auch die Anzahl der im Ra- 
stergitter vorhandenen Löcher zu. 


Sollte einer der Spieler einem tragischen Unfall erliegen, so ex- 
plodiert er in der Farbe des also bei einem roten Mo- 
torrad, eine blaue Explosion. Zudem blinkt die gefahrene 
Strecke des Spielers auf dem Raster auf, Das Spiel endet nach 
einer vom Spieler vorbestimmten Anzahl von Runden. 


Der bessere Spieler hat nun die Möglichkeit, sich im Highsco- 


re zu »verewigen«. 





(Bitte zweimal unterschreiben!) 


Tronic-Verlag Abt. Programmentwicklung, Am Stad, 3440 Eschwege 








Start des Programms: 

In das Spielmenü gelangt man durch Drücken der SPACE- 
Taste. 

Nun muß man die Anzahl der zu fahrenden Level (Runden) 
eingeben. Danach hat man die Auswahl zwischen Joystick- 
Joystick oder Joystick-Keyboard. Bei letzteren steuert Spieler 
1 mit dem Joystick und Spieler 2 mit mit dem Cursortasten. 
Im Highscore-Menü kann man mit einem Motorrad über das 
Alphabet fahren, und durch Druck auf den Feuerknopf die 
Buchstaben anwählen. Aus dem Highscoremenü kommt 
man, indem man das Ausrufungszeichen (f) auswählt. 

Das Programm ist vollständig in BASIC 1.0 geschrieben und 
läuft auf allen Schneider CPC’s. Das Programm hat eine Län- 
ge von ca. 7K. 


SCHNEIDER LISTING MIT CHECKSUMMEN 
V2.0 


10 REM Hk 
“er {NnJ} 
20 REM »ur 
... {EM} 
30 REM *##+ ELECTRIC BLADIATORS 


en <PpA} 


Sompure mi 


40 REM #** PROBRANMIERT IN 
.. 

50 REM ur DER ZEIT vom 
“er 

60 REM “an 27.-29.4 1986 
*.r 

70 REM ##* VON MARK HESSBURG 
“.. 

80 REM wur 

..* 

70 REM HHHHBBBRHHHHHE 


100 REM 

110 REM #*# Sonderzeichen und D 
imensionieren von Variabeln #*** 
120 REM 

130 DIM pt500):DIM 01500) 

190 SYMBOL 255,6,6,12,26,2595,63 
‚85,393 3YNBQL 254,0,0,0,294,24,0 
‚0,0:5YMBOL 253,0,0,50,60,60,60 
+0,0:5YMBOL 252,0,126,126,126,1 
26,125,125,0:5YMBOL 251 ,295,255 
,255,255,255,255,255,255 

150 SPEED INK 5,5: INK 2,5:1INK 3 
„iA: INK 1,0: INK O,1:BORDER O:PA 
PER i 

150 high=50001na$="Compute mit" 
170 GOTO 1480 

190 REM 

190 REM #*# Farben und Variabel 
n ### 

200 REM 

210 INK 2,6: INK 3,14: INK 1,0: IN 
K Q,1:BORDER O4PAPER 1:G0T0 128 
o 


220 q=120:4=200:8=520:r=200:x=B 
Ey 
230 
240 
250 
240 
”* 
270 
280 
290 
* 
300 LUCATE 16, 14:PRINT"for Leve 
1"jru 
310 FÜR tei TO 2000: NEXT 
320 CLS 
330 FOR t=0.T0 #40 STEP 10:MQOVE 
O,t: DRAN 430,t,0:MIVE +,0:DRAW 
£,400,0: NEXT 
340 LOCATE 1,13PRINT" 


MODE 1 

pu=43556 

REM 

REM *#* Bildschirmaufbau ##* 


REM 
ru=ru+til:PAPER 1:PEN 0:CL8 
LOCATE 17,12:PRINT"Get Read 


$:3LOCATE 1,21PRINT" 

s50 FOR t=O TO iG1MOVE t,0:DRAW 
t „400 ,0:NEXT 

360 FOR t=0 TD 10:MOVE #,0:DRAW 
t,400,0:NEXT 

370 FOR t=430 TO 540:MDVE t,0:D 
RAW € „400,0: NEXT 

340 FOR t=0 TOD 10:MOVE O,t:DRAW 
640,t,01NEXT 

390 FOR t=350 TO 367ıMOVE O0,t:D 

RAW 640, ,OsNEXT 

400 PLOT 10,10,25DRAW 430,10:DR 
AN 630,350:DRAW 10,350: DRAW 10, 
10:PLOT 8,8,3:DRAWM 652,B:DRAH & 
32,352: DRAN 8,352:DRAN 8,8 

410 LOCATE 2,1:PEN S:PRINT"Play 

er 12"3sc15:1L0CATE 21,1:PEN ZıP 

RINT"Player 2:";sc25 :LOCATE 2,2 
tPEN SıPRINT"LEVEL: "jru 

420 FOR t#i1 TO ru+Sıptru)=INTIR 
ND#36) +32 0 tru) =1NT (RND# 19) +41: LO 

EATE ptru) ‚„otru) »sGOSUB 1480: NEX 
h) 

430 REM 

440 REM ###= steuerung ### 

450 REM 

A&0 IF JOY(O)=1 THEN x=1 

479 IF coans="K"THEN IF INKEY(0) 

=0 THEN y-1 

480 IF cons="J"THEN IF JDOYti)=1 


1 


IP} 
180} 
SE} 
FB) 
{HF} 


{HD} 


FA) 
<BO> 
{BB} 
<5N? 
HA} 
{8K) 
tm) 
{PA} 
{PB} 
tEE}I 
{GB} 
{pm} 
<{FP} 
AI) 
tcH} 
DM} 


tom) 
{FF} 


{DN) 


iGE} 
iKD} 
0m} 


mar 
“pr 


<6D} 


{AD) 


167) 
tur) 
{HH) 
{HD} 
160) 


THEN y=1 
490 IF JOY(O)=2 THEN x=2 
500 IF can$="K"THEN IF INKEY(2) 
=0 THEN y=2 
510 IF cons="J"THEN IF JDYt1)=2 
THEN y=2 
520 IF JOY(O)=4 THEN n=4 A 
S50 IF caon$="K"THEN IF INKEY(8) 
=0 THEN y=4 
540 IF cons="J"THEN IF JOYtl)=4 
THEN ya4 
S50 IF JDY(O)=B THEN u=8 


560 IF cons="K"THEN IF INKEY(1) 

0 THEN y=B 

570 IF cons="J"THEN IF JOYt1)=B 
THEN y=8 

5B0 REM 

590 REM ### sound #»## 

600 REM 

#10 SOUND 1,0,1,15 

&20 REN 

6350 REM #*#* Bildschirmausgabe # 

23 

&40 REM 

650 IF x=1 THEN IF TEST (q,#+10) 

=0 THEN MOVE q,wiw=w+10: DRAW q, 


w,3 ELSE MIVE q,wew=w+10:DRAN q 
‚W,S:FOR t=15 TO 9 STEP-0.5:50U 
ND 1,6264,5,t4„„1H7 NEXT: Ep1=1460T 
0 780 
660 IF y=1 THEN IF TEST(e,r+10) 
=0 THEN MOVE e,rtr=r+10:DRAW e, 
r,2 ELSE MOVE e,rirer+10ıDRAH e 
‚7,2: FOR t=15 TO 9 STEP-1:SDUND 
1,626,5,%,,B„212NEXTı8p2=1:G0T0 
780 
670 IF »=2 THEN IF TEST (q,#-10) 
=0 THEN MOVE q,wem=u-10:DRAN q, 
w“,3 ELSE NOVE q,Wwsw=w-10:DRAW q 
‚w,S:FOR t=15 TO 9 STEP-1:SOUND 
1,626,5,t,,„1:NEXTsup1=1:1G0T0 
780 A 
680 IF y=2 THEN IF TEST(e,r-10) 
=0 THEN MOVE e,rır=er-10:DRAH e, 
rı2 ELSE MOVE e,rirer-10:DRAW e 
‚rt ,2ıFOR t=15 TO 7 STEP-1:SO0UND 
1,625,54,%4, 3,23 NEXT:sp2=1:60T0 
780 T 


670 IF x=4 THEN IF TEST(tq-10,w) 
-0 THEN MOVE a,wra=q-10:DRAUM q, 
w,3 ELSE MOVE q,wig=gq-10:DRAW a 
‚w,S3:FOR t=15 TO 7 STEP-1:BOUND 
1462645464 4,15 NEXTiSp1=1:B0T0 
780 
700 IF y=4 THEN IF TEBT(e-10,r) 
=0 THEN MOVE e,r:e=e-10:DRAN e, 
r.2 ELSE MOVE e,rıe=e-10:DRAW e 
‚r,2:FOR t=1$5 TO 7 STEP-1:S0UND 
11,626, 54t4 4, 12 NEXT:Sp2=1:60T0 
780 


710 IF x=8 THEN IF TEST (q+10,W) 

=0 THEN MOVE a,wıq=g+10:DRAW q, 

“,3 ELBE MOVE q,Wwrq=qg+10:DRAW q 
«W,3:FOR t=15 TO 9 STEP-1:SOUND 
1,626, 5,%,, „12 NEXT: spi=1:G0T0 

780 

720 IF y=B THEN IF TEST(e+10,r) 

=0 THEN NDOVE e,r:e=e+10:1DRAW eo, 

r,2 ELSE MOVE e,‚rte=e+10:DRAW e 
ır,2:FOR t=15 TO 7 STEP-1:SOUND 
1,626,54t 4,17 NEXTısp2=1:80T0 

780 

730 pu=pu-0.5 

740 G0TO 480 

7sS0 REM 

760 REM ### Level und Punkte Ab 

frage #rr* 

770 REN 

780 IF spi®=i1 THEN spi=Orsc2=sc2 

+purGDSUB 1410:FOR t=1 TO 50:PR 
INT+NEXT 

790 IF sp2=i1 THEN sp2=01sc1=sc1 

+pu:G05UB 1450: FOR t=1 TO 50:PR 
INTSNEXT 


800 IF ru=eru THEN CLS:GOTO 850 
810 GOTO 220 


Compute mi 


{AN} 


{DL} 
EI} 


JA} 


{NI> 
cHM} 


163 


<BL> 
(68) 


1603 
{JE} 
<6E3 


(ak) 


{LK}? 


<MF} 


ac) 


{IE} 


<D6) 


tEH} 


tHND 


{DK} 


{BN) 


<As} 
(PB} 


programme 


820 REM 

850 REM ##» spielende ### 

840 REM 

850 IF scl>sce2 THEN a$e"Player 

1":1F sci>high THEN high=sciı ja 
= 

860 IF sc27sc1 THEN a$="Player 

2":IF sc2>high THEN high=se2: ja 
=1 

8709 CLS:PEN O:PAPER 1:L0CATE 5, 
11:PRINT"Congratulations "a4," 
yau area" 

880 LOCATE 9,13:PRINT"the winne 
r of this match" 


870 BOSUB 1800 

700 IF ja<>t THEN G0TO 1480 
910 CLS 

920 REM 

930 REM #** hiah score #r« 
940 REM 

950 nager" 

960 PLOT 0,0,2:DRAW 0,399: DRAW 


539,399 DRAW 537,0: DRAW 0,0 

#70 PLOT 10,10,2:DRAN 10,389: DR 

Au 629,399: DRAW 429,10:DRAN 10, 
10 

980 zei jamO: WINDOW#1,5,15,3,13 
:PAPER# „2: PEN#1 „Os CLS#1:PRINT# 
1,2$:PRINT#1 ,"You have" :PRINT#1 
+"the high-":PRINT#1 ,"score!":P 
RINT#1:PRINT#L, "Please use"ıPRI 
NTe1,"Joystick #0"4:PRINT#1,"to 
enter ":PRINT#1,"your name!" 

990 PEN S:LOCATE 25,3:5PRINT"ELE 

ETRIC":LOCATE 24,4: PRINT"SLADIA 
TORS"+PEN 2+LOCATE 21 ,6:PRINT"H 
184 SCORE TABLE" 

1000 PLOT 290,280:DRAW 290,308: 
DRAW 510,388,1:DRAN 510,280,2:D 
RAW 290,280 

1010 PLOT 300,290,2:4DRAW 300,38 
B8:DRAN &00,3508:DRAUM 600 ,2701DRA 
W 300,290 

1020 WINDOW#2,7,34,20,23: PAPER# 
2,3: PEN#2, I1CL8#2 

1050 LOCATE#2,1,35:PRINT#2, "ABCD 
EFGHIJKLMNDPARSTUVWXYZ 1" 

1040 WINDOWN3,10,313,17,18: PAPER 
3,03 PENWS, 1: CLEMSE:LOCATERS „1,1 
:PRINT#3, "Highscore"jhigh; 

1050 a=i 

1050 b$=INKEY$: IF b$<>""THEN 60 
TO 1060 

1070 S80TQ 1090 

1080 b#=INKEY$: IF b$=""THEN GOT 

0 1080 

1090 LOCATE#2,a,1:PRINT#2," "; 
1100 IF JOYtO)=4 THEN a=a-lı IF 
a=-0 THEN a=i . 
1110 IF JOY(O)=B THEN a=satiııIF 
a=29 THEN a=28 

1120 ‚LOCATE#2,a,1:PRINT#2,CHR$t 
255) 3 
1130 
80 
1140 IF a<27 THEN GOTO 1190 
1150 IF a=27 THEN bs=" " 

1160 IF a=28 THEN bs=" 1" 

1170 GOTO 1200 

1180 m=0:FOR t=53 TO Mım-mti:1 

F m=a THEN b$=CHR$(t) 


ir JOY(O)<>i1& THEN BOTO 10 


1190 NEXT 

1200 e=sce+ls IF c=23 THEN 60T0 14 
80 

1210 IF a<>28 THEN nasenas+b$ 
1220 LOCATE#S, 1,2: PRINTAS,nas} 
1250 IF ABCtb$)=33 THEN GOTO 14 
80 

1240 60170 1040 

1250 REM 

1260 REM #u## titelbild un 

1270 REM 

1280 MODE 14CLS:PEN SıPRINT" 


ELECTRIC GLADIATORS 
"HPRINT:PRINT:PRINT" _____ 








603 
to? 
GE} 


<1D> 
iPH} 


ti0) 
(Ps) 
£06} 
EnH> 
161) 
{HL 


{69 
{PO} 


INK} 


{HP} 


in) 
{EF) 


<IL) 
tBA) 
70 


{05} 
<or} 


{PH} 


t{11) 
{ng} 


{ns} 
tem) 
tcF} 


ira} 
ter} 


<a) 








programme 


___"ıPEN 2:PRINT"WRITTEN 19784 B 
Y MARK HESSBURG" :PRINT:PRINT"FI 

RST NATIONAL" + PRINT"SOFTWARE 

EOMPANY"ıPRINTIPRINT"$ TRONIC 
VERLAGS 

1290 ru=0:PRINT:PRINT"HIGHSCORE 
:";high:PRINTEPRINT nas 

1300 LOCATE 1,174 INPUT"HOW MANY 
LEVELS ? ",eru 

13510 IF ERLUK<I1 OR ERU>30O THEN 6 
070 1300 

1320 LOCATE 1,20: INPUT"JUYSTICK 
/KEYBOARD OR JOYSTICK/JOYSTICK 
EONTROL (K/D "scons 

1330 sc1i=0:5c2=0 

1340 IF cans="K"OR con$="J3"THEN 
6070 220 

1350 IF cons="k"THEN can$s="K":6 

oT0 220 

1360 IF con$=" j"THEN cons="J":6 

0TO 220 

1370 G0TO 1320 

1580 REM 

1390 REM *## EXPLOSION ##= 

1400 REM 

1410 INK 3,34,0:PLOT q,u,3:FOR 

t=1 TO 400 STEP 10:NOVE q,mPLO 
TR £,t3MOVE q,W:PLOTR-t,-t:MOVE 


Aw: PLOTR-t,t:MOVE q,WwiPLDTR & ' 


‚tıNDVE q,w:PLOTR O,t:NDVE q,w 
:PLOTR O,=-t:NDVE q,Ww=:PLUOTR-t,0: 
MOVE q,Ww1PLOTR £,0:2SOUND 1,500, 
4,15: SOUND 1,300,1,3:NEXT 

1420 INK 3,14+RETURN 

1430 INK 2,68,04PLOT e,r,2:FOR t 
=1 TO 400 STEP 104M0OVE e,r:PLOT 
R t,t:MOVE e,rıPLOTR-t,„-t:MOVE 
e,r:PLOTR-t ,t:NOVE e,r:PLOTR t, 
-t:NOVE e,rsPLOTR 0,t:MüVveE 


{nF} 


{HA} 
{gF} 
tEA} 
<BL} 
<FE} 
Hm) 
{BP} 
<DP} 


<6C} 
tEE}I 


<IL)> 
tBK} 


PLOTR 0,-tiMOVE e,r:PLOTR-t,0:M 
WE »,r:PLOTR t,0:50UND 1,500,1 
‚1S5:SOUND 1,500,1,3:NEXT 

1440 INK 2,8:RETURN 

1450 REM 

1450 REM "u» Titeigrafik un 
1470 REM 

1480 MODE O:FOR t=0 TO 10: INK € 
‚OsNEXTL:BORDER O 

1490 INK 15,25:60T0 1590 

1500 FOR f=24 TO i STEP-1 

1510 FOR q=i T0 3 

1520 FÜR t=10 TD O0 STEP-1 

1530 a$=INKEY$: IF a$<>""THEN BD 
TO 1640 

1540 INK £,fzINKk t+1,09 

1550 CALL &BD19 

1550 NEXT 

1570 NEXT 

1580 NEXT:SEOTO 1500 

1590 RESTORE 18304FOR t=1 TD 10 
zREAD atREAD b:FOR g=a TO b STE 
P 2:PLOT 0,900-g:DRAW 640,400-q4 
‚«trPLOT O,g:DRAW 440 ,q,t:NEXTEN 
EXT 

1500 PAPER 2:PEN 15:L0OCATE 1,5: 
PRINT"N.Hessburg presents: 

1610 PAPER 25PEN 15:L0CATE 1,22 
ıPRINT"ELECTRIC GLADIATORS"; 
1620 B0OTO 1500 

1850 DATA 1,50,50,90,90,125,125 
‚180,150,170,170,185,185,1897,18 
9,194,174,197,197,200 

15440 G0OTD 180 

1650 REM 

1660 REM ### Loecher sprengen # 
”* 

1570 REM 

16880 SOUND 1,10,5,15,0,0,7:1S80UN 


am 
{063 
tDN} 
<mC> 
DD} 


{EF} 
{PJ} 
INJF 
{103 
top} 


{JE} 
{PO} 
{EB} 
{BO} 
{BH} 
{CH} 


tAC}I 
HM} 
{J6) 
“aKı 


{LL}? 
(DD) 
{DH} 


{NO} 
tDN} 


D 1,100,8,15,0,0,7 
1690 CALL &BD194LOCATE 
ru) PRINT CHR$ (254) 
1700 CALL 2&BD19:LOCATE 
ru)s:PRINT CHR$ (253) 
1710 CALL BBDIF:LOCATE 
ru) zPRINT CHR$ (252) 
1720 CALL 2BD19ı LOCATE 
ru) »PRINT CHR$(251) 
1730 CALL &BD19: LOCATE 
ru) PRINT CHR$ (252) 
1740 CALL &BD1I:LOCATE 
ru) «PRINT CHR$ (253) 
1750 CALL &5019: LOCATE 
ru) s=PRINT CHR# (254) 
1740 CALL &BD1FI1LOCATE ptru) ,ot 
ru)tsPRINT CHR$ (32) 

1770 REM 

1780 RETURN 

1790 REM #*# High-Scare Music # 
** 

1800 FOR a=1 TO 2:RESTORE 1820: 
FOR t=1 TO 2&sREAD nol:READ no2 
"SOUND 1,n01,20,7,0,04S0UND 2,n 
02,20,7,0,03NEXT:NEXT 

1810 REM 

1820 DATA 1911,476,1703,424,151 
7,379,1432,358,1911,478,0,0,143 
2,358,1517,379,1432,358, 1276,31 
7,1703,425,0,0,1705,4265,0,0,170 
3,426,1517,379,1432,358, 1136,28 
4,1276,319,1276,319,1432,358,14 
52,558, 1517,379,1703,426,1517,3 
79,1911,478 

1950 FOR t=1 TO 1200: NEXT 

1840 RETURN 


ptru) „ot 
pfru) „ot 
ptru) „ot 
ptru) „ot 
piru) „at 
ptru) „ot 


piru) „ot 


ENDE DES LISTINGS 


{BB} 


{D6} 
<DM} 


XEE} 


{NN} 
00? 
PL} 





Bildschirm-Toolbox : 


SCHNEIDER LISTING MIT CHECKSUMMEN 


2.0 


I ME ad U EI MB A A 
“un 


2 '* Bildschirm Toolbox 
* 
3 '* te) 1986 
* 
2 0 OTTFRIED SCHMIDT 


“ 
BEELLITETIES IT ES E SEI I IE 
** 
& * 
7 * 
1000 
oo 
1010 
06 
1020 
BD 
1050 
ce 
1040 
2D 
1050 
Sn 
1060 
08 
1070 
cD 
1080 
Ar 
1090 
F7 
1100 * 


DATA 11,.00,40,21,00,00,01, 


DATA 40,ED,B0,C9,21,00,C0, 
DATA 03,11,03,00,E5,CD,19, 
DATA CD,20,92,E1,23,10,F5, 
DATA CB,BC,7E,CB,FC,77,CD, 
DATA 92,19,08,18,F3,3E,0, 
DATA 20,F0,C9,21,00,00,06, 
DATA 11,03,00,E5,C0,19,BD, 
DATA 47,92,E1,23,10,F8,09, 


DATA 77,CD,20,72,.17,DB,18, 


“DH? 
KFMR 
£NH3 
OR», 
£L13 
top} 
<DM} 
1833 
«6M) 
[iR >) 
{H07 
<IH3 
KPKY 
<LD> 
{H13 
<DE} 


{LB3 
{AB} 


1110 MEMORY BIFFF 

1120 FOR i=%9200 TO &9200479 
1130 READ a$:POKE i „VALC"&"+a$) 
1140 NEXT i 

1180 * 

1160 HODE 1:PRINT"BILDSCHIRN-TO 
DLROX® 

1170 PRINT"CALL %9200 = ABSPEIC 
HERN EINES BILDES" 

1180 PRINT"CALL &920C = LADEN £ 
INES BILDES" ; 

1170 PRINT"CALL &9233 = LOESCHE 
N EINES BILDES" 
1200 PRINT" 
ass" 

1210 PRINT:FRINT"BITTE TASTE FU 
ER DEMO DRUECKEN" 


VIEL 8P 


1220 CALL &BBIG 

1230 CLS:FOR i=400 TO 0 STEP-2 
1240 MOVE 0,i:DRAW 640 ,1,1 
1250 NEXT i 

1260 FOR i=350 TO SO STEP-2 
1270 MOVE S50,i:DRAW 590,i1,2 
1280 NEXT i 

1290 FOR i=300 TO 100 STEP-4 
1300 MOVE 150,i1:DRAW 490,1,3 
1510 NEXT i 

1320 CAL &7200 

13530 FOR i=1 TO S00:NEXT i 
1340 CALL 49235 

1390 FOR i=1 TO SO0O:NEXT i 
1360 CALL %9200 

1370 FOR i=i1 TG SO0rNEXT i 
1589 CALL 89233 

1390 END 


ENDE DES LISTINGS 


Compube mib 


{EC} 
{Ir 
{PK} 
{GA} 
AA} 


{EI} 
{PE} 
(093 
BI} 
{FC} 


{E63 
{DK} 
IN? 
{FL} 
166} 
IB) 
{BE} 
{FL} 
{HE} 
CE} 
iFN} 
{Ch} 
{CP} 
(DB) 
LOnB 
{EC} 
ur} 
{BF} 
{AJ) 





Dieses Programm ermöglicht 


verschiedene Bildschir 


ekte, 


Mit CALL&9200 speichert man 
den aktuellen Bildschirm im Be- 


reich ab & 4000 ab. 


Mit CALL&920C bringt m 


an 


diesen Bereich wieder auf den 
Bildschirm. Dies geschieht in 3 
Durchgängen, wodurch sich ein 


interessanter Effekt ergibt. 


Mit CALL&9233 wird der Bild- 
schirm in 3 Durchgängen ge- 


löscht. 





Spiel, Utility & Erweiterung 











erweitert den Schneider Befehls- 
satz um 32 neue Befehle, hier in 
ger Reihenfolge: 
> BIGOFF, BIGON, 
CALM, COPY, 
CHUNCH, DISPLAY, DOKE, 
ESY, EX, FAST, FIELD, 
HELP, HIDE, INV, LFIN, 
LFOUT, LTURN, NI, NOISE, 
PEY, PICO, QUAD, RTURN, 
SHOW, SPRITE, STRETCH, 
SYM, TRAP, WOWN, WUP. 
Allgemein: "SUPRA-BASICH 
wurde für den CPC 464 geschrie- 
I Die Befehlserweiterung ist so 
, daß sie auch auf dem 
464 mit angeschlossenem 
Diskettenlaufwerk voll funk- 
tionsfähig ist, wobei man bei den 


”SUPRA-BASIC*” belegt den 
Speicher von & A 000 bis & A 
520. Da es jedoch möglich ist, 
Sprites und Pictures zu definie- 
ren, kann der Speiche noch- 
mals um 4 verkleinert wer- 
den, weil die Picture-DATAs von 
& 9000 bis & 97FF und die 
Der TSEN von & 9800 bis & 
YFFF abgelegt werden. Es ist also 
das Kommando MEMORY & 
8FFF erforderlich, um die DA- 
TAs nicht zu überschreiten; ar- 
beitet man jedoch ohne Sprites 
und Pictures, genügt natürlich 
MEMORY & IFFF, 


Einige Befehle arbeiten mit Varia- 
blen. Diese Variablen müssen 
vorher schon benutzt worden 
sein, weil sonst bei (Klammeraffe) 
z $ (als Beispiel) ein 

argument” ausgegeben wird. 


SUPRA 
BASIC 


Fast alle Befehle Mom eine festge- 
legte Anzahl von 

wird Ber ein Fehler Gain gibt 
"SUPRA- 


ehlswort 
Strich ("Shift” + (Klammeraffee)) 
vorangestellt werden, sonst er- 
reicht man nur einen Syntax 


error”. 


Es emphielt sich, die Befehlser- 
weiterung als binäre Datei abzu- 
eher um schnell darauf zu- 
rückgreifen zu können, Hierfür 
muß man eingeben: 
POKE & A000,1 : SAVE 
"SB.BIN”, b, & A000, & 520 
Man kann "*SUPRA-BASIC*” 
dann mit LOAD ”SB.BIN”, & 
A000 schnell wieder laden, z. B. 
vom Programm aus, wie es ja 
auch bei MADGOON’S RA- 
Ei er Überhaupt ist die- 
Demo-Programm die beste 
Möglichkeit, die Wirkung der Be- 
fehle zu illustrieren. Die Spielidee 
selbst ist natürlich „uralt, .. ist 
von "FR! 
men, das Männchen darf ar sei- 
nem Weg zum oberen Bildrand 
Nichts berühren, was sich be- 
wegt. Die Musik kann mit der 
und dent 


ein wenig schneller abläuft, da die 
SOUND-Routine doch ein biß- 
chen Zeit in Anspruch nimmt, 
das Spielgeschehen aber nicht di- 
rekt beeinflußt. Das Programm 
hat eine eigene TOP-TEN Ver- 
waltung, die auf Diskettenbetrieb 
ausgelegt ist. Die nötige Ände- 
rung für die Kassette ist jedoch 
kein Problem. Man läßt in Zeile 
2520 alles bis zur FOR-NEXT 
Schleife weg und setzt in den Zei- 
len 1080 und 2500 an die Stelle 
von "toptenfil” nur 
ten.fil”, Beim Abspeichern der 
neuen TOP-TEN muß die Kas- 
sette natürlich wieder an die rich- 





programme 


sein, 

Die Version von gefügsen Kae 
RACE” auf der be 

sette ist so nicht eher da auf 
dem Band weder die Binärform 
von "*SUPRA-BASIC#" noch 
die TOP-TEN-FILE vorhanden 
ist, eye en das Pro- 
gramm bitte auf 
chern Sie wie Eymadeze 
"SUPRA-BASIC*" als Binärda- 
tei ab und SAVEn Sie dann die 
TOP-TEN wie folgt: 


FOR L = 1 TO 10:nam$ (1) = 
’SUPRA-SOFT”: pu (1) = 0: day 
$ (1) = "01.01.1986: NEXT: 
OPENOUT "topten.fil”: FOR | 
- as rg ?4 
9, pu (1): ?# 9, day $ (1): NEXT: 
eloseour. 


Erläuterungen der Befehle: 


BANK, wert 
Dieser Befehl wählt er a 
ode Ist 


ne Bi 

der übergebene er 1, wird 
Bank 1 gewählt (8 4000 - & 
7FFF), bei allen anderen Werten 

Bank e erg wien 

minhalte gleichzeitig utzen 
siehe auch COPY und DISP- 


Y), empfiehlt es sich, anfangs 
MODE-Kommando zu setzen, 
um den eventuell verschobenen 
Offset auf den Ausgangswert zu 
bringen. 


BIGOFF, BIGON 
siehe unter SPRITE. 


BYE 


Nach diesem Kommando ist die 

Befehlserkennung durch RSX un- 

Maschinenroutinen 

jedoch noch vorhanden (ab 
Peer 


CALM 


Erzeugt eine Pause beim 
SOUND. Die unterbrochene 
Melodie kann jedoch mit NOISE 
lückelos fortgesetzt werden. 


COPY 


Kopiert den Inhalt von Block 3, 
also dem Bildschirmspeicher von 
&c C000 - & FFFE, in Block 1 
(von & 4000 - &: 7FFF). 


CRUNCH 

eg ist an sich nur wäh- 
re Programmierens nütz- 
lich. Sobald die Zeileneingabe 


durch >ENTER< beendet 
wird, werden alle überflüssigen 
Leerzeichen in dieser Zeile ent- 
fernt, wenn Mine valsuste 
eingeben wurde noc 
Verwenden des Befehls hebt den 
Effekt wieder auf. 


DISPLAY 


Das Gegenstück von COPY. Der 
Inhalt von Block 1 wird in den 
Block 3 kopiert. 


DOKE, adresse, zwei-byte-zahl 


Poked Zwei-Byte-Zahlen in den 
Speicher. Das Lowbyte 
>adresse<, das Flighbyte an 
>adresse + 1</ abgelegt, also ge- 


brauchsfertig für en MC- 
Programm. 

‚ESY, reihe von picturenum- 
mern 

Siehe unter SYM. 

EX, status ee) va- 
riable 1, ) varia- 
ble 2 

Vertauscht die beiden Variablen, 


d. h. deren Inhalt. Der Status gibt 
an, um welchen Variablent 
sich handelt (2 = INTEG 

= STRING, 5 = REAL). 


FAST 


Dieser Befehl Mh ” Schreib- 
euere so die Kassette 
auf 3500 Band. 


raffee) i Br Bruder 


Der ASCH-Code des Zeichens an 
der Cursorposition 
wird in der Variablen von TYP 
INTEGER gespeichert. Dieser 
Befehl gibt dem User also die bis- 
her fehlende Möglichkeit, den 


Bildschirm abzufragen. 


HELP 


Ein nützlicher Befehl, wenn der 
Computer verrückt spielen sollte. 
HELP bewirkt ndes: 
MODE 1: BORDER 1: PAPER 
0: PEN 1: CLS, 

alle INKs werden wieder initiali- 
siert, ebenso die komplette Tasta- 
tur. SPEED INK undSPEED 
KEY werden auf die Anf: 

te gesetzt, jeder Break 


wird an. 


187 
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möglich. Programm und Varia- 
blen werden von HELP beein- 


will, möchte aber zwischendurch 
ein anderes iten (z. B. ein 
Spiel), gibt man HIDE ein und 
lädt das zweite P . Ist 


gramm ist wieder im Speicher!l! 

INV 

beat m 
ung hätte z. B. 

PRINTCHR 424). 


a (Klammeraffee) stringva- 


Der Name des letzten 
mes, das von Kassette 
wurde, wird in der Stringvaria- 
blen gespeichert oder den 


Bildschirm ausgegeben, wenn 
man nur LFIN eintippt. 


LFOUT, (Klammeraffee) 


Wie LFIN, nur daß der Befehl ich 
auf das letzte auf Band gesavete 
Programm bezieht. 


LTURN, reihe von Zeilennum- 
mern 


Die angegebenen Zeilen werden 
um ein Byte nach links gescrollt. 
NI, sekundenzahl 


Der Interpreter wartet die 

bene are m Sekunden, e 
er mit rogramm weiter- 
macht, Während der Wartezeit 
(max. 255 Sekunden) ist der Rech- 


NOISE 
Siehe unter CALM. 


PEY 
Dieses Kommando hält den Inter- 


ee 


PICO, spalte, zeile, pen, pietu- 


renummer 


Siehe unter SYM. 


QUAD, links, rechts, oben, un- 
ten, wert 


Zeichnet ee in der über- 
gebenen F (Die Farbtabelle 
ist im Programm angegeben). Die 
ersten vier Parameterwerte bezi 
hen sich auf Cursorpostionen. 
Beispiele: Im Mode 0 ergibt 
QUAD, 1,20, 1, 2, 240, 

das die beiden obersten Zeilen mit 
schwarz gefüllt werden, im Mode 
1 ergibt 

QUAD, 21, 40, 13, 25, 255, 
daß das Bildschirmviertel rechts 
unten mit hellrot gefüllt wird. 


RTURN, reihe von zeilennum- 
mern 


Wie LTURN, die Zeilen werden 


nur nach rechts geschoben. 


SHOW 
Siehe unter HIDE. 


SPRITE, spalte, zeile, sprite- 


nummer 


*#SUPRA-BASIC#®”. ermöglicht 
die Handhabung von Sprites, d. i. 
Multicolorzeichen im Mode 0. Es 
ist möglich, mit den Befehlen BI- 
GON und BIGOFF zwischen 
großen und kleinen Sprites zu 


. wählen. Ein kleiner Sprite belegt 


ein C in großer 2 x 2 
d sro reise 
32, die n dem vier- 
mul eich nm a Bee 
te (d. i. Bytes im Speicher). 
Platz für diese eine est 
zwischen &9800 und &9FFF, 
man kann also gleichzeitig bis zu 
rege vi A bis 
15 i 64 (! ine 
Sprites peter ist 
natürlich kombinierbar, Beispi 
für die Benu: von SP 
BIGON und BIGOFF: 
auch ein gr in 
Speicher gepoked. Meldet sich der 
CPC nach Programmende mit 
Ready, bitte MODE O eingeben 
und nach der erneuten Ready- 
Meldung >ENTER< drücken. 
Nach der Ei 
6, 1, 0 wird rechts neben dem RE- 
ADY der SPRITE 


Tippt man nun BIGOFF und an- 


schließend ISPRITE, 13, 3, 2, so 


erscheint anstelle der O0 nun der 
linke untere Teil des BIGSPRI- 
TES. Nach IBIGNON: sprite, 
19,24,0 erscheint ganz rechts un- 
ten wieder der große Sprite. Bei 
großen Sprites bezeichnet die 
übergebene sition im- 
mer den linken 'Teil des Sprites, 
or as direkt das Ausgabe- 


STRETCH, spalte, zeile, zeiche- 


Ab der ebenen Position 
wird nach rechts bei der 
übergebenen | von Cursor- 
feldern deren Inhalt auf doppelte 
Höhe gestreckt. Beispiel: Nach 
Programmende wie oben MODE 
0 und nochmals >ENTER< 
eingeben, dann Istretch, 2, 1, 3 
tippen, so werden bei Ready ab 
dem e (Position 2, 1) das e selbst, 
sowie a und d um den Faktor 
zwei gestreckt (3 Buchstaben). Es 
ist auch möglich, Sprites zu 
strecken! Deutlich wird das, 
wenn man eingibt IBIGEN: Ispri- 
te, 16, 1, O: Istretch, 16, 2, 2. Der 
untere 'Teil des Sprites ist nun 
doppelt so hoch. Einen 

Sprite strecken Sie so (z. B.): 
MODE 0: Isprite, 19, 12, 0: 
Isprite, 19, 13, 0: Istretch, 19, 
12, 2: Istretch, 19, 14, 2 

In den beiden anderen Modi ist 
der Befehl umständlicher zu 
handhaben, der Effekt stellt sich 
natürlich auch ein, hauptsächlich 
wurden die Befehle für die graphi- 
schen Tricks allerdings für den 
MODE 0 konzipiert, 


SYM. reihe von ascii-werten, 
Picturennummer 

»+SUPRA-BASIC®” erlaubt auch 
die Verwendung von sog. Pictu- 
res, was als Kette von ASCIE- 
Zeichen zu verstehen ist (max. 32 
pro Picture). Es können auch Zei- 
chen mit einem ASCI-Code < 
32 verwendet werden. Ein Picture 
wird über SYM definiert, mit PI- 


co re me und muß mit 
ESY gelöscht werden, ehe an sei- 


De Te Sa pe Eee Te 
eh iel: Die folgenden 
Basic-Ausdrücke: 
a$ = CHR $ (255) + CHR $ 
(254) + CHR $ (8) + CHR $ (8) 
+ CHR $ (10) + CHR $ (253) + 
CHR $ (252): PEN 2: LOCATE 
21, 14: a$ 
sehen mit Pictures so aus: 
ISYM, 255, 254, 8, 8, 10, 252, 0: 
IPKO, 21, 14, 2,0 


Sompute mit 


Das erzielt den gleichen Effekt! 
Picturenummer wurde hier 0 
verwendet, man kann natürlich 
andere (0 bis 63) verwenden, Die 
Werte sind im Speicher von 
&9000 bis &97FF abgelegt. Soll 
ec 0 neu ne werden, 
muß zuerst ae eingegebe 2 
werden, um die ursprünglichen 
Daten völlig zu löschen, bevor 
man das Picture neu definiert. 
ESY löscht auch mehrere Pictu- 
res, zum Beispiel 
ESY, 8, 15, 16, 33, 50, 


TRAP, wert 
Bei TRAP, 0 wird der Transpa- 
rentmodus aus, bei TRAP, 1 ein- 
geschaltet. 


WOWN, links, rechts, oben, 

unten, wert 

Parameter wie bei QUAD. Das 

Be definierte nn i 
unten gescrollt, 

der neuen Zeile entspricht 

letzten Wert. WOWN ist unab- 

hängig von Basic-Windowst 


WVP, links, rechts, oben, un- 
ten, wert 




















Wie bei WOWN, nur wird hier 
auch oben gescrollt. 





\nlerum 





ıl2ı 


Nach dem Anfangsbild wird der 
Bildschirm schwarz, ein Rechteck 
wird gezeichnet, über welchem 
die Farbanzeige zu sehen ist --um 
Anfang ein dunkelblaues Recht- 
eck (INK 0). Durch Drücker der 
Space-Taste kann die INK-Num- 
mer erhöht werden, Wenn man z. 
B. jetzt drückt, erscheint hellgelb 
(INK 1), dann helles Blaugrün 
(INK 2) usw. Nach INK 15 wird 
wieder bei O begonnen. Die Farbe 
des Rechtecks ist die momentane 
Zeichenfarbe. Drückt man gleich 
zu Beginn die COPY-Taste, so 
wird Cursorfeld links oben 


(wo der gelbe Punkt ist) blau. 
Steuert man den gelben Punkt 
mit den Cursortasten auf das Feld 
rechts daneben, drückt dreimal 
die Leertaste, so daß die Zeichen- 
farbe auf hellrot wechselt und 
drückt dann COPY, wird ein ro- 
tes Feld gesetzt. Die beiden Punk- 
i SPRITES wären 


hellrot. Man kann also einen gro- 
ßen oder vier kleine PEN = 
sem Sprit or ie 
Farbwahl Con jedoch auch di- 
rekt erfolgen. 













































programme 


Um von hellrot wieder auf dunkelblau zu | 7%,.1 
url müßte man über zehnmal die Leer 1270 data 85 ao 
& } H 17 
en Ben Nun eg jedoch den kleinen alc3.g7 „al,c3,bO,ai,cS,be, Se Se,c0,18,02,38,40,47, 
en SSUSO 280 DATA at cBD3 
a und”W” area sul Ha Bien ES, 1d,a2 ‚e3,e7,a1,03,47,a1, IZIS ORTE EEE de 
eichenfarbe wii en, un! 290 DATA c3,58 #03 | 1720 0 1 3 
Sprite fertig, age 10 dan ee S21eaı S5e,07,52,0b,a1,5e,3a, mer 
Cal & es erschei . DATA 1 Fk 
Een be eg Das ee BL NORSCHENRUITREZE RER NIE 1750 DATA c9,4=,00,02,00,05,38 Se 
amm berechnet aus den INK | 1310 Data as N eg . 
mit der Funktion TEST (X,Y) beine I: ri „e3,9d,235,03,2.0,23, ag rel a1 ,30,20,32,1e,al,c9, «D3) 
eg gl goal wurden, die 128 re aa ee ei rede <D13 
erte in ca. 0,1 Se r 1330 DATA — ıc0, 5 
—.n Basic-Routine spe ee ee 74,84 ,03,82,84,c35,91, 1760 Dama 06,09,c5,a0,d1 20,01, {BEI 
gsame! N 4 
S r). Nach der Codierung wird der ESsch,as a4 ,c3,37,24,03,bc,04, <F33 | 1770 DATA ed,b8,12,01,50,08 cbE) 
prite gezeigt. Das Programm fragt dann, ob 1350 DATA e3 Es ee ‚50,08,09, 
wer Mean oder die Arbeit beenden 1560 DATA are nu cFH> Ohne #1,34,20,20,c9,#@,00 En 
rückt man ”R” F 52,55 ,4e „49,54 ,05,43, En 00: ö 
epeesenh ee ehe man | 1370 DATA 43,c8,43,4#,50,49,44 as | SR ee Era 00,r03 <103 
“ ri so ” E} 
n, unter dem dieser dann a in. 1380 DATA 4,4 BR U EEE TE FERSSBNSSANANEI TER TE She 
ee le ae DATA Dil | VOR Er BELREROTEN SER ENT 1210 Dara 12,0 ee 
u Ad } - 2 
mit dem 5” 1 MERGE N ENTE A| 1E20 Bar. Ser” 
5 GE ”SPRI 1400 DA TA 20,80 tBN} 
} in j x: Ti 3 „ed,c9,dd,se 
ME.spr” in jedes Programm eingebun Ss. an 42.49 ,47 48 464,06,52, 13 34,25,da ‚dd,6e,00,2d, 
jur Jede dieser Zei den | 1410 Bara Ira | AS MAIN A BERETTAOOE canı 
oodi Nnen. ser Zeilen enthält 32 ce,4c,54,55,52,ce ?| #d,54,59 ,06,04,29,10, 
Bahmene. ee 5 ans es, 1840 DATA 29,29 c1D> 
Zar MR 42,59,05,53,54,52,45 c0D) | 00,a5, 70 ,29,19,09,48,05,02, 
’ . hu DATA dd tPH> 
. 143 850 ern 
Supra-Basic Szchai 46,49,45,4c ,c4,45,d8, {DN} Berne v v ‚dd,se,04,dd, 
1440 TA 56,08 {FRI 
1000 * Fe Pe 50,49,93,04# ,45,53,69, <103 el ‚08,14,15,25,2d,cd, 
TEE FETT 14 TA #@,00 <ım 
41010 '-— (e) Sept 13) nn ce,4c „46,4% ,55,44,57, ng) BLEI ER ‚00,c2,00,45,c04,8a, 
by) —— ember 1706 N ‚s/,c® 230 DATA a2;aF,06,88,2 Be 
1020 '-— a. <NB> ar. 57,55,d0,48,49,44,c5 1093 TEN „O6,+#,21,00,20, 
RE ander Stroh 1470 Dar; "ke DATA #c,c9,21,9C,82 0% an 
RS zei em 1663 | 66,44 rg d7,54,52,41,d0,49,4e, > Zus SaDe 32,06,0c, j 
1040. NEM Te in D TA bb,23 03 
HEMOR ZA: DEN < ‚23,10,49,26 
sn Y RBFFFICALL 8BCO2:DE (663 ae 4b ,c5,40,c9,50,45,d9, 1C3 03,69,75 „9 ,26,01,28, 
Pok ; u. DATA bb,c9 cbP3 
2020 POKE &RDEE,&C9SBORDER 15 “IH? 00 cd,4e,4# ,49,53,c5,0,0 {FA} 43,20,51 „c9,20,42,41,53,49, 
0,13 sI 1500 DA cn 720 DATA 28.30.04 En 
= Bas 2,0:MODE 1:PAPER O1PEN 09 u 00,00,00,00,f@,05,€2, is; yerkge bir +50,0d,02,fe,05,c2, 
2 5 ’ 1510 9730 TA 32.76 
ur PRINT:PRINT" Befehl um ee 06,07,29,10,fd,eb,21, {DC} 66.04.25 ,76,35,dd,60,02,dd, = 2 
eiterung =EUPRA-BAS rn 1520 DAT: tEF TA 2d,es.cd BB} 
on an Zi PRINT = on 28.20.65 eb,dd,66,04,dd,60,02, £ BaEEnsRE ‚eS,cd,1a,be,11,00, 1 
N 1:L0CA K} | 1530 750 DATA 72,a5 
Ma Aa" 1986 EB ARAASERING CH en Sa ,al,cd,1a,br,0e,08, {IND a1 ,30,02 „aS,11,50,00,05,19, 
100 PEN Z:PRINT cın) | 1540 DAT _ re SEE us a 
BEN PRINT" DE > a 77 ,13,23,10,#a,1a,77, > 08,04,06 »74,05,dd,21,74,25, DE 
NNNVNNNNNNNNNN 1550 Data ei 16:08.18477 s 
Eanıe: PRINT” = kusttn ee <AD} c9,e5,cd #4,07,19,d1,0d,20,ec, 3 a s Y „ce5,01 ‚00,08, ES 
-SOFT I ti EIER" Sur 1540 DAT, DM} A ed,4a,ci,2 ’ 
Fe PRINT" I EERTER TER {063 | at,ei zul 20,21,01,24,05,04,20, aL.0 „4a,c1,23,13,10,#0, m 
PERZRZERZ EG 2 \ 1570 0.00 A 
1140 PEN LLOCATE 15,10: PRINT 10B} ri 25,05,cd,20,al,e1,24, iKar 90,08 ,e4 ud T2di neben 
1150 LOCATE- \ = z 000 DATA 42,01 >) 
1150 LOCATE 15,11: PRINT"BITTE ma ee c9,#8,00,c2,00,85,21, <Dc} 04.20.07 „e1,26,2b,2b,2b,eb, 
Dos = Au70 TA 28,72 <F0) 
1160 TE 15, 12:PRINT" {MG} er be,28,03,368,00,07,36, {FK} B2,0b.28 I) „a5,11,00,20,edy, iR 
1170.P er 1600 2020 DATA 72,05 
1170 PRINT" EIERN {LB} a 00,22,00,45,21,00,c0, <0H} Bien +a5,d4,35,00,20,c4, Län 
RS ae. 161 DATA 35,02 
ETF NEE ER E re tLNn? ee 01,00,40,ed,b0,c9,fe, con? ae „02,20,33,0.9,40,03, - 
1190. =, 1620 DATA cd, 78 HE» 
Sa en Nn-DATeE cm) SION a5,21,00,40,11,00,c0, MK} 34,66,0% ‚78,bb,05,dd,6e8,02, a5 
1200° wege, DATA $} 
200 1630 050 €d;75 
ı $- ” ech {BE} ae ed,b0O,c9,fe,00,c2,00, £NK} 02,0b,77 ‚75,bb ,eod,60,6b,30, 
RER i 080 DATA ei,26 «PD} 
1210 RESTORE 1240 an ee cd,08,b,e,02,e, cm} 1e,05,c2 1,26 ,00,0d,75,bb,c9, 
1220 FOR i=&A000 Po) | 1550 DA PR DATA 00,05,dd.46 cam 
“ se TO 2N4DZ: READ a Ben 3e,01,0d,90,bb,cd,14, > 92,04,06 S „dd,66,03,dd,6e, ax 
a ("&"+a8) ıPOKE pen >| 1460 DATA {MI 2080 „de,ta 7.7 
1240 para ; Fe le BRNTH BSH UN ERSIE WEN 2090 Int €9,n7 u fang 
5 c 
di,be,se 03,06 ,80,21,00,al cd, 00.62,00° Se,c3,32,ee,bd,c9,f@, et eg re ‚57,58,20,ba,f2,00, 
1250 DATA tIF>| 1680 . DATA &b {HF} 
€3,04,a1 c9,32,00,20,c9,72,80, an a5,30,06,21,58,00,cd, a3] 11.18.90 ‚06,03,29,10,4d,42, 
EIER cıc) h 2110 DATA 19 £ncH 
e3,51,a1,035,65,01,c5, eo #r,01,c2,00,35,3e,01, {KH} 2b ud 25 „05,00,44,7@,02,77, 
. 120 DATA {MC} 
{FG} fe,04,c€2 4d,23,10,75,a# ,77,69, - 
TLN> 


v87 


Gompute miß 








programme 


21350 DATA 
04 ,0.0,75 
2140 DATA 
af,67,6b 
2150 DATA 
70,19,06 
2160 DATA 
#97,2.9,40 
2170 DATA 
dd,&6e,00 
2180 Data 
70,19,05 
2190 DATA 
dd,235,#1. 
2200 DATA 
00,25,fe 
2210 DATA 


00,05,4d,55,065,dd,5e, 
bb ,dd,7e,02,cd,70,bby, 
06,05,29,10,#d,11,00, 
20,7e,c.d,58,bb,25,10, 
00,c4,00,25,15,a2#,67, 
05,05,29,10,fd,11,00, 
20,77,23,10,fc.,dd,23, 
3d,20,83,c9,f2,02,#2, 
0r,20,14,3e8,10,12,eb, 
56,21 ,07,b8,05,10,7e, 
10,78,c9,21,07,b8,06, 
Sa,bb,23,10,#9,c97,fe, 


“a5,f2e,01,20,14,3e2,10, 
12,2b,23 
2260 DATA 
10,78,12 
2270 DATA 
68,06,10 
2280 DATA 
c7,8@,05 
2290 DATA 
5e,02,dd 
2300 DATA 
08,1d,18 
2310 DATA 
05,0.2,00 
2320 DATA 
dd,se,04 
2350 DATA dd,56,06,:d4,65,08,1d, 
15,25,24 
2340 DATA 
00,35,21 
2350 DATA 
13,23,1a 
2360 DATA 


Se,23,56,21,4c,b8,06, 
23,13,10,f2,2.9,21,4c, 
78,cd,5a4,bb,25,10,#9, 
c2,00,25,06,00,7b,dd, 
6e,09,4d,56,06,dd,5&, 
25,2d,cd,50,be,c9, fe, 
#5,05,01,7b,dd,5e,02, 


cd,50,6c,c29,18,00,c2, 
81,ae2,11,85,ae2,12,77, 
77 ,ed,5b,81,002,25,7b, 
eb,2a,7b,a02,a#,77,42, 
ib,ed,b8,c9,#8,00,c2, 
91,0e,36,61,23, 36,015, 
c2,00,25,3e,16,0d,5a, 
5a,bb,c9,fe,00,c2,00, 
bb,c9,fe,02,c2,00,25, 
dd,68,02,73,23,72,09, 
00,35,7b6,07,47,21,40, 
b5,20,#b,10,#6,09,#®, 
a5,€cd,10,bb,c?,f@,00, 
cd,bö,be,c9,te,00,c2, 
b9,bc,c9,00 

2490 RESTORE 2520 

2500 FOR i=&A500 TD KASIE:READ 
as 

2510 a=mVAL("&"+a$) :POKE i,arNEX 
T 

2520 DATA 21,0d,85,7e,fe,00,c8, 
ed,5a,bb 

2530 DATA 23,18,#6,4# ,70,65,72, 
&1,60,64 ' 

2540 DATA 20,64,67,75,74,61,6b, 
65,02,0d 


2550 DATA 00 
2560 '— 











25709 * 





SPRITE-DATASS 





{KNn) 
IHK> 
(8A) 
<nc} 
<cP} 
imo 
{PH} 


HI} 
<JB) 
<H0} 


IH) 
{Jr} 
tom} 
<ıı3 
10) 
{EH) 
“043 
Ar) 
<HL)Y 
<FB} 
<BB} 
<ap} 
<L13 
“L17 


‚nen nun gelistet 


2580 "u 
2590 RESTORE 2420 

2600 FÜR i=&9800 TO &HB7FsREAD 
a 

2610 POKE i,asNEXT 

2620 DATA 0,0,0,0,0,0,17,51,0,0 
„51,51,0 
2630 DATA 
3,51,51 
2640 DATA 
„51,51 
2650 DATA 
‚0,0,51 
2660 DATA 
‚204,51 
2670 DATA 
100,51 
2680 DATA 
4,51,51 
2690 DATA 
0,0,240 
2700 DATA 
60,0,0 
2710 DATA 
‚51,51 
2720 DATA 
57,51,0 
2730. DATA 
0,0,0,80 
2740 DATA 
„160 
2780 ' 


2760 '——— REX-EINBINDUNG UND 


_——n 


2770 "——-—  BEFEHLSUEBERSICHT: 


2780 * 





17,51,51,17,51,204,15 
152,153,51,51,192,153 
204,153,0,0,0,0,51,34 
51,0,0,51,51,34,0,102 
34,102,100,51,51,102, 
51,102,204,51,51,51,5 
17,51,60,60,0,51,54,& 
51,51,0,240,0,51,80,1 
B0,160,0,0,80,1&0,0,0 
57,51,60,60,51,34,60, 
51,51,240,0,51,0,240, 
160,0,0,80,160,0,0,80 














2790 EALL &AO00 
2800 PEN S:PRINT:PRINT 
2810 PRINT" 





u 

Die Befehle koen 

werden. 
C«S5B# Syntax-Erklaerung]" 

2850 PRINT" 


2820 PRINT" 











“:PRINT:BOSUB $ 
830 

2840 LDCATE 14,14PRINT"———— 
"SLOCATE 14,2: PRINT"- SYN 
TAX (1) —" 

2850 LDCATE 14,3:PRINT" 
—————tPRINTIPEN 3 
2860 PRINT" IBANK,bildschirmban 
k"ıPEN 1 

2870 PRINT" Wechselt die jeweil 
ige Bildschirmbank. Ist der ue 
bergebene Wert 1,wird Bank 1 g 
wwaehlt andernfalls Bank 3.":PE 
N SaPpRINT 

2880 PRINT" IBISOFF"+PEN 1 

2890 PRINT" Schaltet die Ausgab 
e von grossen Sprites {2 
“2 Cursorfelder) ab,Der aus- g 
egebene Sprite belegt ein Durso 
rfeld.":PEN SıPRINT 

2700 PRINT" IBIGON":PEN 1 

2710 PRINT" Ermoeglicht wieder 
die Ausgabe von grossen Sp 
rites. ":PEN SıPpRINT 

2920 PRINT" IBYE":PEN 1 

2930 PRINT" *SUPRA-BASIC# wird 
wieder ausgeklinkt.” 

2740 GDSUB 3830 

2950 LOCATE 14,1:PRINT” 
"SLOCATE 14,2:PRINT"— SYN 
TAX (2) —" 

2960 LOCATE 14,3:PRINT* 
"PRINT:PEN 3 
2970 PRINT" ICALM":PEN 1 

2980 PRINT" Erzeugt: eine BOUND- 
Pause. "ıPEN 3: PRINT 

2770 PRINT" ICDPY":PEN I 

3000 PRINT" Kopiert den Bidschi 


Sompute mi 




















{AN} 
{0P} 


{AP} 
tINn? 


AA} 
cH0) 
tAF} 
{LN? 
iFm} 
AL} 
{BA} 


<LB} 
ton? 


BEREE 


{DD} 
{BF} 
(813 


{kP} 
{NM} 


<BL.} 
66) 


{nm? 
303 
tcH3 
XAr} 
GE} 


{nn 
PN} 


<cm} 


rminhalt in Block 1.":PEN 3 
3010 PRINT" ICRUNCH"ıPEN 1 

3020 PRINT" Schaltet Komprimier 
modus ein/aus. ":PRINT:IPEN 3 
3050 PRINT" IDISPLAY":PEN 1 
3040 PRINT" Zeigt Inhalt von Bi 
oack 1.":PEN 3: PRINT 

3050 PRINT” IDOKE,adresse wort" 
:PEN 1 

3060 PRINT" POKEt die 2-Byte-Za 
hl in die beiden Speicherze 
ilen ab dem ersten Wert.":PEN 3 
ıPRINT 

3070 PRINT" IESY,picturenummern 
"PEN 1 

3080 PRINT" Loescht die angegeb 
enen PICTURES," 

5090 GUSUB 3830 





3100 LDCATE 14,1: PRINT" ———— 
-"zLOCATE 14,24 PRINT"- SYN 
TAX (3) —" 





$110 LOCATE 14,3: PRINT"Y——— 
———-"IPRINT:PEN 3 

3120 PRINT" IEX,status,@variabi 
el,@variable2":PENn 1 

3130 PRINT" Vertauscht beide Va 
riablen. Statusıs 2=INT „3=ST 
RING ,S=SREAL”ıPEN SPRINT 

3140 PRINT" IFABT":PEN 1 

3150 PRINT" Setzt SAVEspend auf 
35500 Baud.":PEN 3:PRINT 

3160 PRINT" IFIELD,spaite,zeile 
‚@integervariable"ıFEN 1 

3170 PRINT" Der ASCII-Code des 
Zeichens an der Cur- sorpositio 
n wird in der Variablen ge- s 
peichert."sPEN SPRINT 

3180 PRINT" IHELP"ıPEN 1 

3190 PRINT" Graphik-,SOUND- und 
Tastaturreset. In diesen Ber 
eichen wirkt der Befehl wie e 
in CALL O,ohne jedoch Programm 
und Variablen zu beeinfluss 
en.":GOSUB 3830 

3200 LOCATE 14,1: PRINT" -——— 
-—_13LOCATE 14,2: PRINT"— 
Tax m —" 

3210 LOCATE 14,3: PRINT —————— 
——-"+PRINTIPEN 3 

3220 PRINT" INIDE"ıPEN 1 

5250 PRINT" Macht ein Programm 
fuer den Interpreter unsichtbar 
+50 dass ein zweites geladen u 
nd bearbeitet werden kann ohne 
dass das alte geloescht wird 
«":PEN S:PRINT 

3240 PRINT" IINV":PEN 1 

3250 PRINT" Vertauscht PAPER un 
d PEN.":PEN 3:PRINT 

3260 PRINT" ILFIN,@stringvariab 
le":PEN 1 

5270 PRINT” Weist der Variablen 
den Namen der letz- ten LOAD-F 
ile zu,.Ohne Variable wird er d 
irekt auf den Bildschire ausgeg 
eben.” 

5280 FEN SıPRINT 

3290 PRINT" ILFOUT,@stringvaria 
ble":PEN 1 

3300 PRINT" Siehe ILFIN. 
Befehle gelten nur 
tten-Files.” 

3310 SOSUR 3850 
33520 LOCATE 14,1: PRINT" -———— 
- ":LOCATE 14,2:PRINT"- SYN 

TAX 15) —" 

3330 LOCATE 14,3:PRINT" 
—PRINTSPEN 5 
53540 PRINT” !ILTURN,zeilennummer 

n"ıPEN 1 

3350 PRINT" Scrollt die angegeb 

enen Zeilen um ein Byte nach 
links."sPEN 35:PRINT 

33540 PRINT" INI,sekunden":PEN 1 
5370 PRINT" Der Interpreter war 

tet die angegebene Anzahl von 
Sekunden (bis 255). ":PEN SPRI 


Beide 
fuer Casse 








tED} 
PA) 


<BR} 
tFP} 


<DLI 
cin? 


1313 


£NI> 
aa 
{IB} 
tAaD} 


{EI} 


<PO} 
iMmD> 


{PD} 


son 


tEG}> 
{NN} 


AB} 
Aa) 


1C3} 


{173 


<NG3 
{ED} 


{11} 
{0D} 


IP} 
<ADY 
16B} 


{ED} 





NT 

3380 
3390 
EALM 
3300 


PRINT" _INOISE"+PEN 1 
PRINT" Beendet die durch I 
erzeugte Pause. "ıPEN 3 
PRINT” IPEY":PEN 1 

3410 PRINT" Wartet auf das Drue 
cken einer beliebi- gen Taste. 
"PEN SPRINT 

3420 PRINT" IPICO,spalte,zeile, 
pen,picturenummer”":PEN i 

3430 PRINT" Ausgabe des jeweili 
gen PICTUREs an der Cursorpasi 
tion mit dem angegebenen PEN." 
3440 LOCATE 1,23:1G05UB 3830 





3450 LOCATE 14,11 PRINT mmm———m 
"3LOCATE 14,2:PRINT"- SYN 
TAX (6) —" 





3450 LOCATE 14,31 PRINT" 

——;PRINT:PEN 3 

3470 PRINT" I@UAD,links,rechts, 

oben,„unten,wert"ıPEN 1 

3480 PRINT" Fuellt die durch di 

e Parameter begrenz—- te Flasche 
(Cursorwerte) mit der Farbe, d 

ie dem Parameter wert entsprich 

Te 

5490 PEN ZıPRINTIPRINT" Dabei 9 

ilt im MODE O0 (wert/Farbe):":PE 

ni 

3500 PRINT" 000/01 003/13 012 

/20 015/14 048/24 0OS5S1/1B 06 

0/02 063/24,1 192/24 1 

75/12 204/06 207/15 240/700 

zu3/22 252/08 255/18,2” 

3510 PEN 25PRINT:PRINT" MODE 1: 
"3:PEN 1 

3520 PRINT” 

/24 289/06" 

33530 PEN Z1PRINT:PRINT” MODE 2ı 
":PEN 11PRINT" 000/01 255/24” 
PEN ZıPRINT 

3540 PRINT" IRTURN,zeilennummer 

n"ıPEN 1 

3550 PRINT" Scrollt die angegeb 

enen Zeilen um ein Byte nach 

rechts." 

3560 GOSUB 3830 

3570 LOCATE 14,1:PRINT"“ 

— "4LOCATE 14,24PRINT"- SYN 

TaX MN -" 

3580 LOCATE 14,3: PRINT" ————m——— 

min "+PRINTIFEN 3 

3590 PRINT" !SHOW"+PEN 1 

3600 PRINT" Macht ein durch IHI 

DE '"verstecktes‘ Programm # 

ver den Interpreter wieder b 

earbeitbar." 

3610 PEN 3+PRINT+PRINT” ISPRITE 
‚spalte,zeile,spritenummer"sPEN 
1 


000/01 015/20 240 


3620 PRINT" Sprite spritenummer 
wird an der Cur- position a 
usgegeben.Die DATAs sind ab a 
dresse %97800 abgelegt.":PEN 3ıP 
RINT 

3530 PRINT" ISTRETCH,spalte,zei 
le,breite":PEN i 

3640 PRINT" Ab der Cursorpositi 
on wird die durch breite bes 
timmte.-Anzahl 4-Byte-Zeichen ({ 
MODE 0) um den Faktor 2 gestrec 
kt."sPEN 3:PRINT 

3650 PRINT" I15YM,parameterreihe 
‚picturenummer "PEN 1 

3440 PRINT" Definiert das angeg 
ebene PICTURE durch die ASEII- 
Codes der Einzelzeichen.” 
5470 EOSUB 38350 

3680 LOCATE 14,1: PRINTY——— 
———"SLOCATE 14,2Z1PRINT"- SYN 
TAX 8) —" 

369090 LOCATE 14,331 PRINT" ——————— 
":PRINT:PEN 3 

3700 PRINT" ITRAP wert'":sPEN 1 
3710 PRINT" Schaltet den Transp 
arentmodus bei i ein und be 





187 


“BH} 
H0} 


{FP} 
<cE} 


{P33 
<Icı 


t6B} 
0m 


{1K} 
<AD} 


{6B} 


ins} 


{DM} 


ten} 
<JP} 


1C6} 


tEH) 


“7 


{DC} 
(6173 


113 


{BE} 
Pi} 


AA} 


{BF} 


{433 


{MP} 


{FM} 


iKP} 


{PL} 
{co} 
HN} 


{KC} 
{HF} 


i 0 aus." 

3720 PEN SPRINT 

3730 PRINT" IWOWN,links,rechts, 

oben,unten,farbe":PEN 1 

3740 PRINT" Parameter wie IQUAD 

“Das WINDOW wird ab- waerts ges 

cerollt,der PAPER der neuen zZ 

eile entspricht dem Farbwert. IM 

OWN ist unabhaengig von BASIC-W 

INDOWs. ” 

3750 FEN SıPRINTIPRINT" IWUP,1i 

nks,rechts,oben „unten, farbe"sPE 

Nnı 

3760 PRINT" Wie bei IWOWN,nur a 

ufwaerts."ıPRINTIGOSUB 3830 

3770 LOCATE 14,12: PRINT"————— 
"LLOCATE 14,15: PRINT"Noc 


{PC} 
{HC} 


tun? 


{E77} 


10K} 


programme 


hmal? (J/NI" 

3780 LOCATE 14,14: PRINT"- 
-————tUNILE INKEYS<S>""TWEND 
3790 IF INKEY(45)>-1 THEN PEN 2 
:ELS:S0TD 2840 

3800 IF INKEY(44)>-1 THENIHELP: 
PRINT" BASIC 2.0":PRINT:NEN 
3810 GOTO 3790 

s920 * 

3830 PRINT:PEN 24PRINT" °°°£ 
<e<<ec<< Taster >>>>>>>>>>>>" 
3840 _WHILE INKEY#<>""aWEND: IPEY 
:CLS: RETURN 


ENDE DES LISTINGS 


{NF} 
{NH 
{FO} 
{003 
{PH} 
ac) 
1603 


Li, ca) 





$Supra-Basic 


Das Utility: 
Sprite-Generator 


SCHNEIDER LISTINGS MIT CHECKSUNMEN 


v2.0 


1000 ’'zu==mum=22222zes2en2unenenum 
zum=: 





1010 MEMORY &FFFFIMDDE 1:1PAPER 
O:PEN 1z:INK 1,1:BORDER 1:CL8 
10209 LOCATE 1,24PRINT STRINB#F(A 


o,“.") 
1630 LOCATE 1,31PRINT"= SUP 
TE — GENERATOR * 


ERSPRI 
1040 LOCATE 1,4:PRINT STRINB$(A 
1,9 


0,"#") 

1050 LOCATE 

10580 PRINT" Cursor bewegen———— 

——--—-LCURBSORTASTEN" 

1070 PRINT:PRINT" Farbe waehle 

n——-SPACETASTE” 

1080 PRINTIPRINT" Farbe direkt 

waehlen-—— >W< druscken” 

1090 PRINT:PRINT" Farbpunkt se 

tzen-————————---COPYTASTE" 

1100 PRINTıPRINT" Ende 

—————n——.- EC druscken" 

1110 LOCATE 1,22:PRINT STRING$( 

a0,"#") 

14120 LDEATE 1,23:PRINT"* 
1986 by ALEXANDER STROH 

+" 

1130 LDCATE 1,24:PRINT STRING$S( 

40,"#") 

1140 INK 1,24:DIM ds(4) 

1150 FOR 1=-&A000 TD &AA400: POKE 

1,0:NEXT 


1140 ' „nenknaszuzuzszzmzzmmmmmon 





(ec) 


ZRRZESZzEzzEzzzezuzeczemmenenm 
BUBSIETzES—Zummenmucem x 
1170 RESTORE 1200: FOR n=0 TO 36 
1190 READ i$ris="&"+i$:1POKE EA 
004m ,VALti®) 

1190 NEXT 

1200 DATA cd,78,6bb,25,2d,cd,1a, 
be,14,8 

1210 DATA 1,30,21,3,77,3,18,5,2 
3,2,77,3,1d,c2,12,a1 

1220 DATA e5,1,f4,7,9,21,18,c2, 
d,ail,c? 

12350 'e===-2221n2-nmnnans Hann 
“eWUSEESBWSSzmSZmmsmemmzezeseee 
BEunzzumuzmz: 


1240 RESTORE 1280 





Compute mit 


(DJ? 
<ıL} 


- {AI} 


tuK) 


{HM} 
<c1ı}3 


<003 
{HJ} 
{FO} 
0A? 
{EI} 
{PI} 


{IP} 
{PN} 


{HM} 


{LE} 


6A) 


t0K} 
<cF} 


{PF} 
tJF)> 
KL} 


CK} 
<or} 


1250 READ i$: IF is="-1"THEN 138 
o 

1260 i$="L"+i6:POKE LA000+te,VA 
Lti$)ıtente+i 

1270 GOTO 1250 

1280 DATA 3a,c0,30,32,c2,a0, Sc, 
32,04,20,52,c6,20,35a,c1,a0 
1290 DATA 32,05,00,36,32,623,80, 
32,07,a20 

1300 DATA dd,21,b,31,28,c0,20,d 
d,36,0,30,0d,75,bb,cd,0,al,2a,c 
2,20,44,358,0,50 

1310 DATA cd,75,bb,cd,0,a1,2a,€ 
4,20 ,dd,36,0,70,0.4,75,bb,cd,0,a 
1,24,c6,a0 

1320 DATA dd,35,0,90,0d,75,bb,c 
4,0,31,c9,0,0,0,0,0,0,0,0,0,0,0 
‚0,0 

1330 DATA 21,00,82,11,30,31,06, 
80,cb,7@,ca,71,20,eb,cb,ce,eb,c 
b,76,c4,78,40 

1540 DATA eb,cb,ee,eb,chb,dse,ca, 
83,20,eb,cb,de,eb,cb,66,ca,8c,a 
O,eb,cb,te,eb 

1350 DATA cb,5e,ca,95,20,eb,cb, 
c6 ,eb,cb,54,ca,9e,20,eb,cb,e64,® 
b,cb,4e,ca,a? 

1360 DATA a0,eb,ch,dö,eb,ch,46, 
ca,b0O,a0,0b,ch,f6,06,23,13,05, € 
2,68,20,c9 

1370 DATA —1 

1580 * 








nemtermenmuenemneezummm 

1390 MODE O:PAPER S:BORDER © 
1400 ELS 

i410 INK 15,1318YNBOL 255,255,2 
55,295 , 289,255, 295 ,255,254 

1420 MOVE &0,352:DRAWR 515,0,15 
:DRAUR 0,-259, 151 DRAWR-516,0,15 
:DRAWR 0,258,15 

1430 PEN 1S5:L0CATE 7,2:PRINT"FA 
RBEı " 

1440 PEN O:ıLOCATE 14,2:PRINT CH 
R$(143) 

1450 tinte=9rnp=72: yp=33sinpi=? 
2: ypi=II& 

1450 ins=1NKEY# 

1470 IF in$="p"THEN yp=yp*+16 
1480 IF ins$="g’THEN yp=yp-i& 
1490 IF in#="r"THEN xp=xp-32 
1500 IF ins="s"THEN xp=xp+32 


tcH} 


603 


tKE} 


{IE} 
{BI} 


{LE} 
tar} 
1067 


161} 


<6D) 
t81> 
{na 


{1 
{ABI 
<ım 
{KE} 
{ne} 
{In 


51 








programme 


1510 IF xp<92 OR xp>572 OR yp>3 
56 OR yp<97& THEN xp=xpisyp=ypi 

1520 PLOT xpi,ypi,5:PLOT xp,yPs 
ı 

1550 xpi=xpıypi=yp 

1540 IF in$<>" "THEN 1570 

1550 tinte=tinte+ir IF tinte=16 

THEN tinte=O 

1540 PEN tinterLOCATE 14,2:PRIN 
T CHR$(143) 

1570 IF LOWERS(inSI<>"W"THEN 16 
oo 

1580 tinte=TEST txp,yp+4) 

1590 PEN tinte:LOCATE 14,2:PRIN 
T CHRS(1A3) 

1600 IF ins<>CHR$1224) THEN 1620 
16810 LOCATE (xpr4) /32,25-typ/16) 
:PEN tinte:PRINT CHR$ (255) 

1520 IF INKEY(S@)=-1 THEN 1440 

1830 PEN a ee 3,23: PRINT"C 


ALCULATING 


15920 sta ee re 
e, m mmmemmmemzmzezsmzzmoszszuasuzusunen 
m pmeemmermmemmmonmme 

1650 RESTORE 15650 

1660 DATA 3356,224,88,280,356,22 
4,344 „536,208, 94,88,280,208,96, 
344,536 

1670 FOR null=0 TO 127:POKE Ai 
350+nul1,0:NEXT 

1580 FOR lauf=1 TO 4 

1690 READ yt,yti,nt,nti 

t700 FOR y=yt TO yti STEP-16 
1710 FOR „xt TO xti STEP 64 
1720 1b=TEST (x „‚y)ırb=TEST (x+32, 
y) 
1750 
‚mt 
1740 
1750 


„t=1&#1b+rb:POKE 3AZ200+zae 


zae=zae+ti:NEXT x,y,lauf 
CALL &A0&0 





<BF} 
{Kn} 
{CP} 
cn} 
iF3) 
<PL)> 


<JL} 
<8P} 


<PE} 
(JD} 


{AD} 
<3H} 


{GM} 
{PD} 
t0E} 
160) 
{PA} 
ter} 
{EC} 
{DA} 
{19 
103} 


{BH} 
tDc} 


{CK}! 


Supra-Basic 


1760 '„nmeume--oommooosemmeneennen 
ZZZZZEZEEEEENTTZZZZZZosussan een 
ZEESSEsmmmer onen 

1770 MDDE O:PAPER SıPEN 15:CL8 

1780 LOCATE 8, 10:PRINT"SPRITE" 

1790 MOVE 268,216: DRAWR 100,0,1 
Sr DRAWR 0,-50,153DRAUR-100,0,15 
:DRAWR 0,50,15 

1800 POKE &AOCO,IS:IPOKE &AOCI „I 
0 

1810 CALL &A000 

1820 LOCATE 1, 17:PRINT"Run {RI 

—- Ende [E]" 

1850 IF INKEY(58)>-1 THEN!BASIC 
1840 IF INKEY(50)>-1 THEN 1850 

1850 60T0 1830 

1840 "-====-2sunmenen---roomucon 
SZSERTereecoomzomaszumu pe mesocon 
„rocozmzmzzzzzzume been 

1870 CLS:WHILE INKEY$<>""+WEND 

1880 INPUT"Filename des Sprites 
"ınnsinnsenns+",.spr" 

1890 bas=41232:0PENDWUIT nn# 

17900 FOR 1=1 TO 4:d$t1)=STR$(1) 
+" DATA " 

1710 FOR m=-0 TO S1:dd$=STR$(PEE 
Kibas+1#$2+m) ) 

1920 d$(1})=d$t1)+RIGHT$S (dd$ „LEN 
tdd#)-1) 

1930 IF m<>31 THEN ds (1)=dttl)+ 


” 

1740 NEXT m:PRINTN9 „d& 1) PRINT 
"Saving LINE"FZI:NEXT 1:CLOSEDUT 
1950 LOCATE 1,17:PRINT"Run ERI 
--- Ende [EJ" 

19780 IF INKEY (SB) >-1 THENIBASIC 
1770 IF INKEY (50) >-1 THEN RUN 
1990 6010 19640 


ENDE DES LISTINGS 


MADGOON'S RACE 


SCHNEIDER LISTING MIT DHECKSUMMEN 


2.0 


1000 * 


.— 


un 











1010 " -——— (c) August/Septembe 
r 1986 by Alexander Stroh -—— 
1020 * ——— 











1030 * 
10940 * 
1050’ TITELBILD 

1060 * ei 

1070 MEMORY ESFFFICALL &BC0O2:PO 
KE ZBDEE,&C9 

10B0 LOAD"eb. bin" ,„BAOOOICALL A 
000: 805UB 3210: 0PENIN"topten. fi 
1” 

1090 FOR 1=1 TG 10: INPUTN9P,nan® 
(1): INPUT#9,put1): INPUTNF „dayst 
I): NEXT:CLOSEIN & 

1100 BORDER 0:608UB 3040: MODE 0 
ıPAPER S:PEN 14:CL5:GOSUB 3040 

1110 PEN 12:L0CATE 1,8:PRINT" (c 
) SUPRA-SOFT 'BA":PEN 14: 1BIiG 
ON 

1120 FOR 1"1 TO 10: !SPRITE,A,1, 
O1 SOUND 1,90+1#5,3: 15PRITE,4,1, 
ZENEXT 

1130 IS5PRITE,4,10,1: iNI,1:FOR 1 
=1 TO &:50UND 1,150,3 





<AR} 


<PP} 
AD} 
0m} 
tir) 


Da} 


iLC} 


<DE} 


“um 


1033 


1140 LOCATE 2+2#1,12:PRINT MID® 
(titles,2#1-1,2) 2 ISTRETCH, Z+2#1 
‚12,2 

1150 tSPRITE,2+2#1 ,10,2: ISPRITE 
„3+2#1,9,0: FOR m=1 TO 100:NEXT: 
ISPRITE „3+2#1 ,9,2 

11&0 ISPRITE,4+2#1 ,10, 13 FOR m=1 
TO 100:NEXT m,l:LOCATE 14,12:P 

RINT"CE" 

1170 ISTRETCH,16, 12,2: INI,1:FOR 
1=10 TO 1 STEP-1 

1180 ISPRITE,16,1,0:S0UND 1,90+ 
145,3: ISPRITE,16,1,2:NEXT: INK 6 
„O:CALL &B019 

1190 PLOT 0,270,6:DRAW 0,146: DR 
AM 636,146: DRAW 6356,270:DRAM O, 
270 

1200 MOVER 0,20:DRAW 635,290:DR 
AW 320,398:DRAW 0,290: MDVE 0,12 
&:DRAW 320,18 

1210 DRAW 636,126:DRAW 0,126 
1220 PEN 12:LOCATE 1,17:PRINT"P 
ress SPACE to rung "sCALL &BD17 
1230 INK &,2:UHILE INKEY147)<03 
ILTURN,174FOR 1=1 TO 150:NEXT:W 
END 

1240 S80SUB 3040:MODE 1:PAPER 0: 
CLS 

1250 PEN 1:L0OCATE 14,2: PRINT"MA 
DEUON’S RACE 

1260 PEN 2:LOCATE 19,A:PRINT CH 


Computs mib 


CK} 
Ay) 


{an} 


166) 
{AL} 


<mB} 
{ER) 


{PP} 
{PD} 
{693 


an) 
cDF} 


cm? 
“In? 
imB} 
60) 
mn) 
{nr} 
{ME} 


KH) 
tBH) 


183) 


16D} 


aA} 


{BP} 


{JA} 


<AE} 


tb) 


5m) 


136) 
{NE} 
mA} 


REt164)+" by” 

1270 PEN 3:LDCATE 16, 6: PRINT"SU 
PRA-SOFT" 

1280 PEN 24PRINT+PRINT 

1290 PRINT" After these instruc 
tions there will be 

1300 PRINT" action very soon. T 
he screen shows you 

1310 PRINT" the road and the ri 
ver ‚crossing them 

1520 PRINT" both will be MAbsoo 
N'’S fate. 

13350 PEN SPRINT 

1340 PRINT" Four men yau must p 
lace in the four 

1350 PRINT" holes of the fence. 
Un your way yau’ıı 

1350 PRINT" see crashing cars,m 
ighty monsters and 

1370 PRINT" scratching enakesı 
“void any touch! 

1380 PEN 2:PRINT 

1390 PRINT" JOYSTICK/CURSORS ar 
e the econtrol-keys. 

1400 PRINT" SPACE tunes music o 
n/off. Good luckt!i 

1410 PEN 1:LOCATE 14,235:PRINT"P 
ress any keys 

1420 INK 1,23 INK 2,18: INK 3,61W 
HILE INKEY$<>""zWEND 

1450 IPEV:GOSUB 3040:MODE 1:B605 
uUR 2780:MODE O:PAPER S:CL8 

1440 ' 
1450 ' 
1460 ' BILDAUFBAU 
1470 * 
1480 IBANK,11MODE O:PAPER SıCcLS 
s IQUAD,1,20,3,3,4B: IRUAD,1,20,1 
2,13,195 

1490 :QUAD,1,20,21,22,195: IQUAD 
„1,20,14,20,243: 10UAD,1,20,4,11 





nn nn 


v 

1500 PAPER 4+PEN B:LOCATE 1,3ıP 
RINT STRING$ (20,253) 1GOSUB 3160 
:LOCATE 1,23 

1510 PRINT STRING$ (20,253) 

1520 MOVE 0,321DRAUR 440,0,5:M0 
VER 0,2: DRAWR-640,0 

1530 PAPER SıPEN I3HLOCATE 4,1: 


PRINT"MADGOON’S RADE"s ISTRETCH, 
4,1,14 

1540 LOCATE 1,24: PRINT"SCH 0 
HIz 0 LI:S":ISTRETCH,1,24,20 
1550 PAPER 134PEN 4:L0CATE 1,17 
ıPRINT STRING$ (20,154) 

1540 FOR 1=15 TO 17 STEP 4:F0üR 
m=2 TO 20 STEP 2:LOCATE m,1l:PRI 
NT"-":NEXT m,1 

1570 RESTORE 1590 

1580 FOR 1=1 TO B:READ m,nı IPIE 
O,m,n,RND#B,1 MOD 2:NEXT 

1590 DATA 3,14,8,14,12,14,17,14 
‚5,18,10,18,13, 18,18, 18 

1600 FOR 1=1 TO B:READ m,n: IPIC 
O,m,n,RND*8,2+1 MOD 2:NEXT 

1610 DATA 2,16,8,16,12,14,15,16 
+4,20,9,20,13,20,18,20 

1520 PAPER 9: 1PICO,5,12,0,5: IPI 
c0,14,12,0 ‚6: 1!STRETCH,S,12,12 
1630 PAPER &ıPEN 4 

1640 FOR 1=1 TO B:READ m,n,osLO 
EATE mınsPRINT STRING$ (0,254) 3: 
NEXT 

1550 DATA 10,5,3,18,5,2, 3,7,4, 
14,7,35, 6494221159594, 2,11,4,15 
„11,3 

1660 FOR 1=1 TO 7:READ m,n,o:!P 
ICO,mın,0,4:3NEXT 

1670 DATA 3,4,1,8,4,5,17,4,7,1, 
8,5,7,8,8 13,841, 19,8,2 

1480 FOR imt 70 B:READ mına IPIC 
0,0,n,15, 9: NEXT 

1690 DATA 2,6,8,6,13,6,18,6,4,1_ 
0,7,10,15,10,19,10 > 
1700 PEN O:FOR i=1 TO S+READ m, 
n:LDEATE m,n:PRINT CHR$ 255) NE 





xT 

1710 DATA 1,4,12,4,158,6,10,8,5, 
10,10,10 

1720 PAPER PEN 12:L0CATE 10,2 
ZIPRINT CHR# (248) ‘ 

17590 ISPRITE,1,1,0: ISPRITE,17,1 
o 

’ 

1740 !BANK,S:60SUB 3060 

1750 FOR a=%4000 TO 24760 STEP 
%504FOR b=a TO a+%&3800 STEP &80 
o 

1760 FOR c=b TO b+&AF:POKE c+%B 
000 ,PEEK{c)I NEXT c,b,a 

1770 
1780 * 
179090 'VORSPANN 
1800 * 
1810 1iv=-5r 6c=0:ma=0: #=0:mu=1ıR 
ESTORE 21&0s !IDISPLAY»CALL %&BD197 
1820 #=10: y#=22:hi=sput1):60D8UB 3 
120: PAPER 








1830 ' 

1840 No —-- [1 [inmn 
1850 °HAUPTPRUGRAM 
M 

1850 Pin in an ah _— 
1870 xi=xsyl=y 

1890 IF cerash=1 THEN 2210 

1890 IF INKEY(72)X0R INKEYIO)TH 


EN y=y-2 ELSE IF INKEY(7SIXOR 1 
NKEY (2) THEN yayı2 

17900 IF INKEY(74)X0OR INKEY(B) TH 
EN n=x-1 ELSE IF INKEY(7SIXOR I 
NKEYIL1)THEN nen+i 

19710 IF INKEY<47)>-1 THEN mumi- 
mus SCALM:RESTORE 2150 

1920 IF x<1 THEN »=1 ELSE IF x> 
20 THEN „=20 

1930 IF y=2 THEN y=3 ELSE IF y> 
22 THEN y=22 

1940 LOCATE x1,yi:PRINT" " 

1950 IF RND>0.5 THEN!LTURN,12,1 
3 ELBEIRTURN, 12,13 

1950 j=j+1:1F j MOD 2=1 THEN 20 
00 

1770 ILTURN,„#4,8,14,18: IRTURN, 6, 
10,16,20 

1980 IF mm>3 THENILTURN, 14,18r1 
RTURN, 10: IF mm>7 THENIRTURN,&,2 
0: ILTURN,„A,8 

1990 IF mm>11 THENILTURN,„4, 143 1 
RTURN,10,1& 

2000 G0SUB 2240:605UB 2240: IF c 
rash=i THEN 1980 

2010 LOCATE x ,yıPRINT CHR# (248) 
:CALL &BD19 

2020 IF y<yi THEN SOUND 2,30,20 
+15,2:6c=sc+t1:605UB 3100:605SUB 
2240 

2030 IF y=3 THEN 2260 

2040 IF mu=1 THEN ON ER{1)80SUB 
2120 

2050 SDTO 1870 

20860 * 
2079 * 


-...———— 


2080 'SPIELROUTINE 
n 
2070 


2100 * SOLND 

2110 #=5-f:RESTORE 2140 

2120 REND ec,ddsIF dd=-1 THEN G 
oT0 2110 

2130 SOUND 1,natca+f) „dd,13,125 
j"j MmoD 2 

2140 ISPRITE,1,1,33: 1SPRITE,19, 
1,43 

2150 RETURN 

2160 DATA 1,25,1,12,2,12,1,25,1 
‚12,2,12,1,25,1,12,2,12,1,25,5, 
25,2,25 

2170 DATA 2,12,3,12,2,25,2,12,3 
,12,2,25,2,12,5,12,5,12,4, 12,3, 
12,2,12 


Penn an un an ana una 





187 


<AH} 
(313 
MD} 
«107 
{NE} 
Lich p 7 
pm} 
tEE} 
ts} 
{8P) 
<{LL} 


“IL? 


{FT} 
{MM} 


{LLC} 
«1.07 


tHN? 


64H) 
tJE} 
{Fk} 
{EF} 
{Nc} 
<c.3 
cp} 


29) 
“PIr 


{HH} 
DE} 
{00} 
1m} 
<DD} 
tum} 
tan) 
<B6} 
{NC} 


tJc} 


2180 DATA 1,25,1,12,2,.12,1,25,1 
„12,2,12,1,25,1,12,2,12,1,25,3, 
25,2,25 

2190 DATA 2,12,3,12,5,12,4,12,3 
112,2,12,1,25, 3,25, 1,75, 714-1 
2200 ° CRASH 

2210 SOUND 4,0,120,15,3,0,1:l1iv 
=l1iv-ircrash=0:B0SUB 3140 

2220 WHILE INKEYS<>""sWENDEIF 1 
iv=-0 THEN 2400 ELSE GOTO 1820 
2230 ' BET PAPER 

2240 PAPER TEST (x-1) #32, (25-y) 
#16) :PEN 12:RETURN 

2250 * GET ABCII-CODE 

2250 fe=0: !FIELD,x,y,@feı IF #« 
>32 THEN crash=i1 

2270 RETURN 

2280 ' PABSED 

2290 PAPER 4:LOCATE x ,„yıPRINT C 
HR# (248) 1 uc=sc+H1S5: B0SUB 3100 
2300 CALL &BCA7:RESTORE 2140 
2510 mm=mm+is1F mm MOD A<>O THE 
N p=1 ELSE p=3:sc=sc+50:605UB 3 
100 

2320 FOR k=1 TO pıSOUND 7,106,1 
5,15,2:50UND 7,89,15,15,2 

2330 SOUND 7,975,15,15,2:50UND 7 
+119,60,15,23NEXT 

2340 FOR k=1 TO p#1250:NEXT: IF 
p=3 THEN BOSUB 3140 

2350 IF mm<>12 THEN IF mm<i& TH 
EN 1820 ELSE 2400 

2360 FOR 1=192 TO 224 STEP 2:MD 
VE O,1:DRAWR 640,0,9: NEXT:PAPER 
7 


2370 FOR 1=2 TO 17 STEP 5: IPICO 
„1,12,0,6:NEXT 

2380 ISTRETCH,1,12,20:60T0 1820 
2390 " GAME DVER 

2400 INI,S: ICALM 

2410 FOR 1=0 TO 400 STEP Z2ı MOVE 
O,1:DRAWUR 640,0,5:NEXT:GOSUB 3 
040 

2420 1F sc>pu(l10)THEN BOSUB 253 


o 

2430 GOSUB 3040:MODE OrPAPER 51 
PEN A:CLS:sCALL &BD19 

2440 IF mm=1i& THEN coms="#ur VI 
CTORY! ###"ELSE IF sc’putio) THE 
N coms="ONE OF THE BEST!"ELSE c 
oms="FORGET IT! OKAY?" 

2450 LDCATE 5,91PRINT"GAME IS 0 
VER NOW"=PEN 12:LDCATE 3,124 PRI 
NT com$ 

24580 PEN &:LOCATE 5,15:PRINT"AG 
AIN? (Y/N)"sCALL &BD1? 

2479 !S5TRETCH,S,7, 16: 1!STRETCH,S 


‚12,16: 1STRETCH,S,15,12:G05SUB 5 
060 


2490 
ELSE 
ELSE 
2490 
2500 


IF INKEY(43)>-1 THEN 2490 
IF INKEY(46)>-1 THEN 2500 
2480 

INT,I:CLS:GOTO 1810 
OPENDUT"topten. fil”":FODR I= 
1 TO 10r:PRINT#? ,nam$ (1) 

2510 PRINT#? ,pu(1):PRINT#9,days 
(1) 2NEXTICLOSEOUT 

2520 r$="topten.bak": IERA,@r$ıF 
DR 1=1 TO 5000: NEXT: IHELP:+:NEW 
2530 * HALL OF FAME (eingeben) 
2540 NDDE 1:PAPER O:PEN S:CLS:p 
ut10)=scınam$(10)=""sdayst10)=" 


2550 LOCATE 16,4:PRINT"EXTELLEN 
Tas 

2560 LOCATE 8,8:PRINT"You’ve re 
ached the TOP TEN"+LOCATE 8,7 
2570 PRINT" ——m—— 
=—-—-"zWHILE INKEYS<>""IWEND:P 
EN 1:L0CATE 16,12 

2580 PRINT"ENTER NAME":PEN 2:L0 
CATE 14,15: PRINT STRINGF(I14,"-" 
N) 

2590 INK 2,18: INK 1,25: INK 3,63 
vel4ıw=i1d4ı le=15:ık=0:60SUB 26450 
2600 FOR 1=0 TO lernamst10)enam 


Compute mib 


<0D3 
{BF} 


{HD} 


{CH} 
ID} 


£ND} 
iPA> 


{m 
TECH} 
<DAI 
{NN} 
mc} 
{3x} 


{AB} 


<KP} 
{HF} 


{BJ} 
tAc} 
<10) 


<0M} 
tim} 


t16) 
{LF} 
{PI3 


DD} 
1 #7 


{ac} 


{GN} 
<a} 


tal} 


{FA} 
NE} 


{AL} 
<BH} 
{0m} 


{KE} 


{CK} 
{16} 





programme 


St10) +CHRE LE 1) sc (1 I=3S2:NEXT 

2610 PEN 14L0CATE 11,174PRINT"E 

NTER DAY OF SCORING":PEN 2:L0CA 

TE 16,20 

2620 PRINT! — ————"sv=iöıwel 

Yıle=9:k=0:G0SUB 2650 

2530 FOR 1=0 TO 10:day$t10)=day 

#10) +CHRE Ic (1) ) ac 1 I)=SZI NEXT 

2640 INI,1:60T0 2720 

2650 WHILE in$s=""sins=INKEYS:WE 

ND+ in=ASC (in#) 

2660 IF ins=CHR${127)THEN kek-t 
1 AND k>O):LOCATE v+ik,wsPRINT" 
":ctk)=32 

2570 IF ins=CHR$ (13) THEN ins="" 
RETURN 

2680 IF in<32 OR in>122 THEN in 

S=""1560T0 2550 

2690 LOCATE vrk,wilIF k<=-1e THEN 
PRINT CHR# tin) ;ELSE PRINT" "z 
2700 e(k)=inık=k+t1 AND k<le+1) 
sint=""ıG0OTO 2550 

2710 ' HALL OF FAME (sortieren) 

2720 GOSUB 5040: CL5 

2730 FOR h=10 TO 2 STEFP-1:IF pu 
{h-1)<pu(h)THEN GOSUB 2750 

2740 NEXT hı60T0 2780 

2750 1EX,2,@pu(h) ‚@puch-1) I EX, 
S5,@nam$(h) „Eenam® (h-1) 

2760 IEX,3,@days(h) ‚@days#ih-1): 

RETURN 
2770 * 
N) 

2780 PEN S:LOCATE 13,14 PRINT"TH 
E HALL DF FAME":FOR 1-1 TO 10 
2790 PEN 2:LOCATE 2,2+1#2:PRINT 
nam$(1):LOCATE 29,2+1#2: PRINT 
daysil) 

2800 PEN 1:LOCATE 19,2+1#2:PRIN 
T pu(1):L0CATE 18,2+2#1 1 PRINT"# 
":NEXT 1 

2810 PEN 3sLOCATE 14,25: PRINT"P 
ress any keys"ıINK 1,2651INK 2,1 
B5 INK 3,& 

2820 WHILE INKEY$<>"":WEND: IPEY 
sELSıPEN 11LOCATE 13,13 

2850 PRINT"STATISTIEC? (Y/W" 
2840 IF INKEY(46)>-1 THEN GUSUB 
3040: RETURN ELBE IF INKEY(43)" 
-1 THEN 2840 

2850 * MADSDON STATISTIC 

2860 CLS:ıGONBUB 304045PEN 3:LOCAF 
E 12,1:PRINT"MADGDON STATISTIC:H 
2870 FOR 1=12 10 2B STEP 2: !15TR 
ETCH,I1,1,1:NEXT 

2880 PEN 2:LDCATE 2,44PRINT STR 
INGS (IB, """) 

2870 PRINT:PRINT" MADGDON’S RAD 
E was programmed with 

2900 PEN 11PRINT” #SUPRA-BASICH 
"s:PEN 21PRINT" (RSX-start at & 
ADO00) 

2910 PRINT" in August/Beptember 
1985 by "}»:PEN 13PRINT"A.STROH 


HALL OF FAME (ausdrucken 


2920 PEN 24PRINT:PRINT" Game-re 
cordss " 

2930 PRINT" The highest score w 
as"jrPEN 1:PRINT put(i)sıPEN 2 
2940 PRINT"by"ıPEN 1rPRINT" "ın 
ams{1)j:PEN 2:PRINT" at the "5 
2930 PEN 1:PRINT daysti)::PEN 2 
ıPRINT" !":PRINT 

2960 PRINT" Bytes used at the m 
omentr"j1PEN 11PRINT HIMEM-370- 
FRE (0) 

2970 PEN Z:PRINT:ıPRINT" Minutes 
playedı"3:PEN 13PRINT INT((TIM 
E-as) /18000) 

2980 PEN ZıPRINT+PRINT"” Points- 
reached befores"z5ıPEN IıPRINT s 
eıPEN 2 

2990 PRINT" Men in the fencehol 
est"3:PEN 1:PRINT mmsıPEN Z2ıPRI 
NT" Livesı"z 

3000 PEN 1:PRINT liv:PEN 2:L0CA 


{PM} 


<ım) 


tem 


1c13 
{BB} 
cHL_> 
<cc> 
603 
{EI} 
{CF} 
iK1} 


HP} 


tem} 


tor) 


<nc}Y 


programme 


TE 2,21:PRINT STRINB$(38,"=")ıP 
EN 3:LOCATE 8,23 

5010 PRINT"Press any key to con 
tinue; ":FOR 1=8 TO 32 STEP 2:18 
TRETCH,1,23,1 

3020 NEXT: INK 1,28: INK 2,18: INK 
3,6:3CALL &BBOSı IPEY:GOSUB 3040 
:RETURN 

5030 * INKS Aus 

3040 FOR 1=0 TO 153 INK 1,0:NEXT 
RETURN E 

3050 * INKS EIN 

5050 INK O,1z1NK 1,24:1NK 2,151 
INK 3,44 INK 4,25: INK 4,2: INK 7, 
8: INK 8,3 

5070 INK 9,18: INK 10,143 INK 11, 
181 INK 12,6:INK 13,10: INK 14,26 
„iB: INK 15,12 

3080 RETURN 

5090 * SCORE 

35100 PAPER SıPEN 13:LÜCATE 4,24 
«PRINT USING"###", sc: ISTRETCH,4 
„24,33 RETURN > 

3110 * HIGHSCORE 

3120 PAPER S:PEN 134L0CATE 12,2 
4:PRINT USING" AER"zhi: ISTRETCH, 
12,24 ,S:RETURN 

3130 ' LIVES 

3140 PAPER S:PEN 13:LOCATE 20,2 
A:PRINT USING”"#"z1ivı ISTRETCH,2 
0,24, 13 RETURN 

3150 * LOECHER IM ZAUN 

3160 PAPER 4:FOR I=3 TO 18 STEP 
SILDOCATE 1,3:PRINT" ":NEXT:RET 

URN 

3170 * 

JIHO * mm 
3190 'S8YMBOLE 
VARIABLEN 
3200 * 








3210 DEFINT c-zıDIM not10) ,‚eti6 
),put1o) „ar$(2) ‚al$(2) ‚day$t10) 
‚nam#{10} 

3220 RESTORE 3240: as=TIME:RANDO 
MIZE TIME:SPEED INK 5,5 


DB} 


{NnD} 


{LK} 


(60) 


tCcD} 


166} 


iLB6} 


{BI} 
{BB} 
CK} 


{JB} 
{DB} 


{CF} 
166} 


iFM} 
<BA} 


{FO} 
(PEI 
<BP} 
tBH} 
ma? 


ecH} 
£{ND)} 


3230 FOR 1=1 TOD 10:READ notl):ıN 
EXTIFOR 1=0 TO 16tct1)=32:NEXT 
3240 DATA 478,424,379,3598,319,2 
39,213,190,179,159 

3250 ENV 1,1,15,1,1,0,1,1,0,1,1 
2,-1,8,2,-1,203ENV 2,10,-1,2:EN 
V3,15,-1,10 

3260 KEY 140,"Mode Zıpaper O:pe 
n Islist"+CHRSL1SI st itIet="MADB 
DON'S RA" 

3270 SYMBOL 240,1,2,4,127,127,2 
55,20,8:5YMBOL 241 ,240,72,68,25 
4.,255,255,20,8 

3280 SYMBOL 242,15,198,34,127,25 
5,255,40,16 

5290 SYMBOL 243,128,64,32,254,2 
54 ,255,40,16 

3300 SYMBOL 244,0,6,12,24,255,1 
27,63,31:8YMBOL 245,0,0,0,0,255 
„235,254 ,254 

3310 SYMBOL 245,0,0,5,198,108:8 
YMBOL 247,0,3,153,198,108 

3320 SYMBOL 248,680,61,25,255,18 
8,188,36,102 

3350 SYMBOL 249 ,255,255,255,255 
,255,255,40,16 

5340 SYMBOL 250,112,72,72,254,2 
35,255,40,1& 

3350 SYMBOL 251,0,0,1,127,255,1 
27,20,B:8YMBOL 252,96,144,8,255 
,255,254,90,16 

33560 BYMBOL 253,34,34,255,34,34 
,255,34,54 

3370 SYMBOL 254,0,0,15,41,198,0 
‚38,80:S5YMBOL 255,0,0,129,90,50 
‚126,126 

3380 !5YM,240,241,0: 15YM, 251,25 
2,1 

3390 I5YM,242,243,2: 19YM, 249,25 
0,3 

3400 !5YM,244,245,4: 18YM, 244,24 
7,9: 35YM, 150,225,156,& 

3410 RESTORE 3450:FOR 1=0 T0 25 
5 

35420 READ mıPOKE &7900+1 „mzNEXT 
sFOR 1=0 TO 127 

3450 POKE &9900+1 „240:NEXTıRETU 


{KE} 
(DH3 


£36> 


(803 


{MH} 
{FK) 
{EM} 


{PN} 
{DC} 
tEK} 


{LA} 
tn) 


AK} 
{ch} 


tan} 
<ML} 
tEI} 
{NnJ} 
{PI} 
{0A} 


RN 

3440 * SPRITE 1 

3450 DATA 240,240,240,0,240,240 
,160,0,240,240,0,0,240,240,16,3 
2,240,240,16,34 

3450 DATA 240,240,0,0,240,240,& 
4,0,240,240,0,192 

35470 DATA 0,240,240,240,0,80,24 


0,240,0,0,240,240,16,32,240,240 ' 


„16,34,240,240,0 

3480 DATA 0,240,240,0,128,240,2 
40,192,0,240,240 

3490 DATA 240,240,160,0,240,240 
ı240,0,240,240,177,114,240,240, 
51,240,240,177 

3500 DATA 114,240,240,240,240,2 
40,240,240,240,240,240,240,240, 
240 

3510 DATA 0,80,240,240,0,240,24 
0,240,177,114,240,240,240,51,24 
0,240,240,177,114 

3520 DATA 240,240,240,240,240,2 
40,240,240,240,240,240,240 ,240 

3530 " SPRITE 2 

3549 DATA 240,240,240,240,240,2 
40,240,240,240,240,240,240,240, 
240,240,0,240,240 

3550 DATA 160,0,240,240,0,0,240 
»240,17,32,240,240,16,32 

3560 DATA 240,240,240,240,240,2 
40,240,240,240,240,240,240,0,24 
0,240,240,0,80 

3570 DATA 240,240,0,0,240,240,1 
7,32,240,240,16,32,240,240 

3580 DATA 240,240,0,0,240,240,& 
4,0,240,240,0,192,240,240,160,0 
»240,240,240,0 

3590 DATA 240,240,177,114,240,2 
40,51,240,240,240,177,114 

3600 DATA 0,0,240,240,0,128,240 
„240,192,0,240,240,0,80,240,240 
„0,240,240,240 

3610 DATA 177,114,240,240,240,5 
1,240,240,177,114,240,240 


ENDE DES LISTINGS 


tAc}ı 


{PM} 


t1E} 


EE} 
16K} 


<iLc} 


{HN} 


tan} 


tBP} 


{BI}? 
tAN} 


{HN} 
{PB} 


{NM} 
tB0} 


<DD} 
{NP} 


KKKkKkKkKKrK 
STAR-TREK 


Das Spiel gliedert sich in 5 Levels. 
Der igkei 


von einem Energietankraumer 





Das ERSTER 


hwierigkeitsgrad steigt d- mit max. 4/10 Energie auf; 
bei von Level zu Level durch Stei- tankt, Sollten die Klingonen eR 
ng der rg Er geek mal Stärker esen sein, SO 
dpket und der Anzahl gegneri- braucht man nicht verzagen. Die 
Schüsse. Aufgabe des Heimatbasis wird einen Ber- 
Spi ist es nun, sein Raum- 


“ Fi ge reg 
Spielfeld, möglichst durch 5 
Levels zu bringen. Näheres steht 
in der Spi itung im Pro- 
gramm. Sollte die Enterprice 
nach einem Leveldurchlauf Tref- 
fer eingesteckt haben, so wird sie 


ngsraumer schicken, der die 
Kampfunfähige Enterprice abholt 
und zur Re heimholt. 
Und bevor es dann heißt: Auf ein 
Neuss!, kann man sich noch die 
Highscore-Tabelle ansehen. Da 
wird sich dann auch zeigen, wie 
hoch der Sonderbonus ist, 


SCHNEIDER LISTINGS MIT CHECKSUMMEN 
v2.0 


10 ee 
nun... 
20 '’* 


cc} 
STAR TREK 
= {NL} 
so '’# se=seescrzemmmumzzumume 
= * {Do)> 
40 '* (0) Guenter Feldmann 06/8 


GSompute mi 





” 

50 '# Waldemarstr. 

079751 

60°'# 4690 Gelsenkirchen I 
* 


2 :Tel.0209/ 


790 '# Nit moralischer Unterstue 
tzung % 

80 '=# von meinem Bruder Juergen 

* 

Oo Tr 

“rer 

100 INK 0.0: INK 1,265: INK 2.151 

NK Z,21: INK 4,24: INK 5,9: INK 6, 

St INK 7,8: INK 8,15: INK 9,2: INK 
10,15,3: INK 11,185 INK 12,11: INK 
13,4: INK 14,25, ,15: Ink 15,22:B0 

RDER 6:PAPER O:PEN 1 

110 RANDOMIZE TIME 

120 DIM score (4) „name#(4) 

130 lev=1:ks=20:5c=0: sh=10 

140 MODE 0 

150 re 
zıieneee 

150 ’# Schriftzua STAR TREK zei 

chnen # 

170 nnnmnuueerenen 

..n...n. 

180 FOR x=1 T0 3 

190 READ pn: IF p THEN Astx)=As x 

)+CHRF(P) :GOTO 190 ELSE NEXT 

200 DATA 150,194,158,158,156,15 

0,156, 146, 159,159,156, 150, 152,1 

48.194,0 r 

210 DATA 147,156,149,151,157,15 
3,197,32,1949,151,199,151,152,18 
1,199,0 

220 DATA 154,154,154,153,145,14 

5,.197,153,193,154, 153, 145,193,1 

5941594,153,193,159,154,159,0 

230 LOCATE 3,1:PEN 14:PRINT Ast 
LP} 

240 LOGATE 3,2:PRINT A$1(2) 

250 LOEATE 1,5:PRINT A$13) 

260 LOCATE 1,5:PEN 3sPRINT STRI 

NGS1(20,253) 5 

270 LOCATE 2,BıPEN Z:PRINT"DIE 

ABENTEUER DES":LOCATE 5,10:PRIN 

T"RAUMSCHIFFS" ö 

280 LOCATE 2,124PEN 14PRINT"U.8 
„5. ENTERPRISE” 

290 LOCATE 1,15:PEN 3:PRINT STR 
INGS(20,140) 3 

300 LOCATE 1,15:PEN A4:PRINT CHR 

$(164)+"19786 by 6. Feldmann" 

310 LDOCATE 4,17:PEN B:PRINT"Wal 

demarstr. 2"4LDCATE 1,18: PRINT" 

46550 Gelsenkirchen 1" 

320 LOCATE 3,19: PRINT"Tel. 0209 

/078784” 

330 LOCATE 1,21:PEN 7:PRINT STR 
ING$120,233)3 

340 PEN 14:LOCATE 3,23: PRINT"BI 

TTE WARTEN „.."ıPEN 1 

350 MEMORY 42000: sprite=42010 

360 

... 

370 

s# 

320 
... 

370 RESTORE 490si=01k=0sREAD a 

400 WHILE a<25& 

410 POKE sprite#+i „arık=ktari=i+i 
:REND a 

420 IF i MOD 8<>0 6010 450 

430 IF a=k MOD 255 GOTO 440 

440 k=O:READ a 

450 WEND 

260 HBHHHHHH 

470 '* STOR SPRITE — ROUTINE # 

ABO TR 

490 DATA 253,229 ,221,229, 42, 4 

2.179.237 ,152 

500 DATA 971, 46,179, 25.205,12 

4, 32, 27,215 

510 DATA 205, 44, 32, 25,205, 2 


‘# PDKE-ROUTINE FUER SPRITE 


ME u 02 122 12 2727272720272 2722 2 22 2 2 2 2 2 227 


<PPI 


t1B) 
£007 
(83) 
{0K} 


{DPI 
{NM} 
34) 
<3Ar 
tan? 
{HD} 
{AP} 


{DJ} 
{ID} 


<1.D3 


{0A} 


101} 


12 $) 


BC) 


FO} 


imP} 


{km} 


{BB} 


tBM} 
<LD}> 


‚tıLy 


{np} 
100} 


CK} 
tLL> 


BA) 
tEK} 
{LB} 


237} 
<{B0} 
tJD} 
{PP} 


{FD} 
100) 
{BJ} 
{HK 


An} 


9,235, 335, 34 
520 DATA 199, 
25.10, MUSS 
530 DATA 15,122,149, 98,106, 8 
7, 30,200, 39 

540 DATA 213, 24, 39,221,229,25 
I1225,201,121 

550 DATA 0,213,125,230, 
3, 39,203,252 

560 DATA 39,203, 39, 87, 30, 
0,125,230,241 

570 DATA 248,111,203, 37,203, 2 
0, 68, 77,199 

590 DATA 203, 37,203, 20,203, 3 
7.203, 20,158 


0,183,237, 82, 2 


7,20 


=90 DATA 9, 25,229, 42, 40,17 
9,237, 75, 68 
&00 DATA 44,179, 9,203, 44,20 


3, 29,203,14& 


610 DATA 44,203, 29, 6, 0,20 
3, 44, 40, 57 
620 DATA 20,203, 29, 36, 232, 


8,120,149, 85 
630 DATA 72, 96,104, 71, 24, 1 
5,195,195, 0 
640 DATA 221 ,225.253,225,201,20 
3, 29, 62,139 
650 DATA 80,149, 56,242, 79,20 
9, 25,237, 53 


660 DATA 91,201,177, 25, 17, 
0,192, 25,216 

670 DATA 48, 4, 17, 80,192, 2 
5,197,221, 16 - 
680 DATA 225,193,237, 91, 48,17 
4, 82,0. 

&90 DATA 128, 40, 24, 19, 19, 1 
9, 19, 19, 31 

700 DATA 26,254,140, 32,203, 1 
9, 26,214,146 

710 DATA 32, 56, 6, 19, 26,21 
4, 32, 48,177 

720 DATA 244, 16,232, 65,197,22 
9, 19, 19,253 

730 DATA 19, 19, 19, 26,254,14 
0, 32,174,171 

740 DATA 19, 26,214, 32, 56,11 
7.221 ,229,14& 


750 DATA 193,120,254, 0, 
8, 19, 26,148 

760 DATA 214, 32, 56,103, 
8, 65, 24,246 , 

770 DATA 2, 24,217, 19, 
4, 32, 56, 78 

780 DATA 90,230, 15,203, 
0, 2,203, 8% 

790 DATA 247,203, 87, 40, 
3,231,230,219 

800 DATA 90,203, 77, 40, 
3,215,203, 11 
810 DATA 95, 40, 
Q, 85,203, 33 
820 DATA 39,174,119, 19, 26,21 
4, 32, 56,167 

830 DATA 50,230, 15,203, 71, 4 
0, 2,203, 46 

840 DATA 247,203, 87, 40, 
3,231 ,230,219 

850 DATA 90,203, 79, 40, 
3,215,205, 11 
860 DATA 95, 40, 
0, 85,174, 4 
870 DATA 1197, 62,249,164, 79, 3 
5, 62, 7,8 

B30 DATA 164,177,103, 16,166, 1 
9, 26,214,117 


40%, 
16,24 
26,21 
71, 4 
2,20 
2,20 
2,203,199,23 


2,20 
2,20 
2,203,199,23 


‚890 DATA 32, 48,250,225, 1, 


0, 8, 9, 61 
700 DATA AB, 8, 
9, 62,199, 97 
710 DATA 164,103,195, 16.140,22 
1.,225,253, 35 

920 DATA 225,201 ,256,170 

730 HEHE EURER 
“vr D 

940 He HAUPTPRODODGRAM 
Mas 


Sompute mi 


1, 80,192, 


iNF} 


ikc} 
t0K3 
um 


{GP} 
1997 
tır) 
{Par 
<DJ? 
108} 
{m} 
ic} 
{CF} 
{PK} 
GE} 
{EL} 


Ko} 
{JE} 
{PN} 
(FL)? 
{JH} 
{6P} 


«JF} 
{107 


tim) 
(EN? 
mn} 
16177 
iMK) 
tJE> 
{NL}? 
<{LB} 
iKD} 
{NK} 
tFK} 


04H} 
{cf} 


cı8) 
{RE} 


programme 


950 "UURHRREREREHERHHREREH UNE 
“rn 

780 LOCATE 2,23:PEN 14:PRINT">> 
TASTE DRUECKEN<<":PEN 1 

970 TALL &BB18 

980 MODE 1:G0SUB 3220 
77H 
u.n.... 

1000 '# Schriftzug STAR TREK ze 
ichnen # # 
1010 HHHHHHHRESERRSHERHIE IHN 
“rn... 


-1020 GOSUB 2010:NODE OrBORDER 1 


5 

1030 LOCATE 3,1:PRINT Ast) 
1040 LDCATE 3,2:PRINT A$(2) 
1050 LOCATE 1,354PRINT A#(3) 
1060 "mE 
” 


1070 '# Level-u. Punktetabelle 
” 


10BO "ana nan an 
* 

1090 LOCATE 1,4:PEN 2:PRINT STR 
1NG$ (20,143) 

1100 LOCATE 1,4:PRINT CHR$ 124) + 
"KS3: "+CHR# (24) 1 

1110 LOCATE 8,4: PRINT CHR#(24) + 
"Sr "+CHRS (24), 

1120 LOCATE 15,4:PRINT CHR$ (24) 
+"T2 "+CHR$ (24) 3 

1130 LOCATE 1,21+PRINT CHR#{150 
I+STRINGS (18,154) HCHR$ 1156) 
1140 LOCATE 1,22:PRINT CHR$(149 
)+"Shieldsı "1:LUOCATE 20,22:PRIN 
T CHR$(149) 

1150 LOCATE 1,23:PRINT CHR$L14? 
)sLOCATE 20,23:PRINT CHR$(149) 
1160 LOCATE 1,24:PRINT CHR$ (149 
)"Bcorer"ıLDEATE 20,24:PRINT CH 
RE (149) 

1170 LOCATE 1,25:PRINT CHR#t147 
)+5TRINGS (18,154) +CHR$ (153) +CHR 
#130) 

1180 sh=10480SUB 2540 

1190 LOCATE 4,12:PEN 12PRINT"L 
EVEL ":lev:FOR c=1 TO 30001 
NEXTELOCATE 4,124PRINT BSTRINGS( 
14.32) 3 

1200 nme 

1210 '#* Landschaft » 

1220 "ae 

12350 RESTDRE 4970:M0VE 1,100:CA 
LL sprite 

1240 " aEanab anna 
ur... 

1250 '# Anfangs-Posititmen fest 
legen # 

1260 Re 
DT Te t 
1270 d=O:8=0: ko=0: k1=0: ks=20:60 
gsuB 2720 

1280 »=480: ve20B+RESTORE 4520:M 
DVE x,v:ıCALL sprite 

1290 kx=-130:ky=1NT (RND#205+128 
):RESTORE 4800:MOVE kxr,kysCAlL 
sprite 

1300 #aen+20: fymy-1dı fknukan+104 
tfky=ky-16 

1510 IF lev=1 THEN b=20:b1=10:b 
2=16:b3=30 

1520 IF iev=2 THEN b=elöıbi=101b 
2=16:b3-30 

1350 IF lev=3 THEN b"12ıbi=12:b 
2=20:1b3=40 

1340 IF lev=4 THEN b=12:1b1=12:b 
2=20:1b3=50 

1350 IF lev=3 THEN b=10:b1=14:b 
2=2441b3=60 

1ILO Mana EEE 
1370 '* JDYSTICK-STEUERUNG # 
1380 HH 
1370 RESBETDRE 4520:N0VE x„yıa=lü 
Yo) 

1400 IF a=1 AND y<328 THEN yey+ 
b1:60T0 1440 


{ED} 
{HB} 
tADI 
{np} 


{AB} 


{CD} 
iKc} 


{FH} 
2103 


<CD} 
{10} 
(F93 


{mp} 
{CB} 
DC 
t0D} 


{KG} 
{EB} 


MX} 
<L1> 


“am? 
{FL} 
<P1} 
{n3} 


{HF} 
{Kar 


<E0) 


cam) 


fi 
i 
| 
{ 
i 
2 





1410 IF a=2 AND y>13& THEN yey- 
b1:60T0 1440 

1420 IF a=1& THEN e=s+1:605UB 2 
7201 G0SUB 1730:6070 1440 

1430 GOTD 1450 

1440 CALL sprite: MOVE vech 
sprite 

1450 MOVE kx,ky:Gbsuß 1520 

1460 IF sh>3 THEN LOCATE 14,244 

PRINT SPE(6)3 

1470 IF ah<=3 THEN LOCATE 14,24 
«PEN 4+PRINT"DANGER"ıPEN 1 

1480 GDTO 1390 

1490 HEHE 
“nn... 

1500 '# Klingonenraumschiff ste 
vorn = 

1510 "HH 
“rn. 

1520 RESTORE 4800:MOVE kx,.kyıcAa 
LL sprite 

15350 kumku +b2: ky=ky+ tINT(RND#bS 
)-b3/2) 

1540 IF ky>320 THEN ky=320 

1550 IF ky<132 THEN kv=132 

1560 fkaumknt+14Ar fkyaky-ib 

1570 RESTORE 4800:MOVE kx,.kyıca 

LL sprite 
1590 '#r% 

wur 

1590 IF kx+170>=n-4 AND kalax+1 
25 AND kycmy+32 AND ky>=y-32 TH 
EN 50170 1670 

1500 '### Schiessmoeglichkeit 
? un. 

1610 IF ku>20 AND kr<x-170 THEN 
z=INT(IRND"bI /Z2I: IF z=3 THEN G 
OSUB 1870 ELSE GOTO 1630 

1620 '#*# Ausserhalb des Bilde 

ss” u. 

1530 IF kx>=636 THEN RESTORE 48 

00:MUVE kx.ky:CAll spriterFOR c 

=1 TO 200:5NEXT cıks=ks-l:kimkl+ 
1:G0SUB 2720: IF ks=0 THEN GOTO 
2460 ELSE GOTO 1690 

1640 MOVE n,„y 
1650 RETURN 
1560 "ar 

“.. 

1670 GOSUB 2290: RESTORE 4800:M0 
VE ka,kytCALL sprite:shesh-1:6D0 
SUB 2640: ko=ko+ri: IF sh=0 THEN G 
OSUB 2210:60T0 3580 ELSE G0T0 1 
290 

1680 '# Kl.-Schiff neu position 
ieren # 

1690 kxw-1304 ky=INT (RND#*205+128 
):MOVE kn,kysCAll spriterGOTO 1 
[00] 
1700 
1710 
1720 
1730 


Test ob Kollision 


Kollision 


LE AN NEN TEE EITETTE TUE EN 

*## UNTERPROBRANME ii 
EHRE EHEN 

SE SS I I I I Er er Se 27 
1740 '# Schuss Enterprise # 
1750 ri EHE 
1780 fu=n+20: fy=y-16 k 
1770 IF fy<eky+a AND fFy>=ky-32 
AND #x-320<akx+160 THEN 1780 EL 
SE 1790 

1760 PLOT #a,fy,1:DRAW kx+160,f 
y:SOUND 1,142,26,7,,11:2FOR i=1 
TQ 1002NEXT:PLOT fx,„fy,O:DRAW k 
x+150,Fy:B0T0 1800 

1790 PLOT fx,fy,1:DRAW #x-320,# 
y:SOLND 1,142,25,7, 1,1: FOR i=1 
TO 100:NEXT:PLOT Fr ,Fy,0:DRAW # 
x-320,fy:60T0 1810 

1800 GOSUB 2320: se=nc+INT(RND=Z 
0+40) :G0SUB 2570:d=d+1:G0SUB 27 
20 

1810 MOVE x,y 

1820 RETURN 
HEHE 
'#* Schuss Klingonraumer # 
Ad a En Tr 
1860 Fhnukat13bı fkymky-16 


programme 


iKP} 


kp} 
{AH} 


tuK? 
iLA3 


{HE} 


iLM} 
<P3} 


206} 
{EB} 
{BL} 
{HK} 
“For 
ton? 
{nt} 
Fr} 
<oP} 


Fo} 


<BA} 
{MAI 


{BP} 


{NE} 


{mo 
KO #2 
<BI} 


iKE} 


{NG} 
<1B} 


{AB} 
ED} 
t0K} 
{BN? 
KO} 
CBN} 
{KI) 
tim 


BL} 


{6P} 


1003 
LCEN B3 
{AB} 
{103 
{L.D3 


{PJ} 


1970 IF fky<=y+4 AND fkyd=y-32 

AND fkx+270>=x-B THEN 1880 ELSE 
1899 

1880 PLOT fFkx,fky,9rDRAW n-&,Fk 

y:5OUND 1,320,25,7,,„i:F0OR i®i 

TO 100:NEXT=:PLOT fkxyfky,OsDRAN 
"-b+,tky:60T0 1970 

1890 PLOT fkx,fky,9:DRAB fkn+27 

O,fky:SOUND 1,320,25,7,+,1:FOR 
i=1 TO 100:NEXT:PLOT fka,fky,Odi 

DRAW fkx+270,4ky 

1700 '=# Shield-Kontrolle 

... 

1910 IF sh<>0 THEN GOTO 1930 
1920 IF sh=0 THEN G0T0 1960 
1950 MOVE kayky 

1740 RETURN 

1950 '### enplosions-shield Ent 

ern. ### 

1960 GOSUB 2210+RESTORE 4800: M0 

VE kuıkyıCAll spriteıGOTO 3590 
1970 sh=sh-1:RESTORE 535041MOVE 

x-20,y+10:CALL sprite 

1980 FÜR c=1 TO 50:50UND 2,424+ 

E17. yr 2 NEXT 

1770 CALL sprite 

2000 MEIVE kr,ky:GOSuB 2610:G070 
1920 

2010 "HB 

2020 *# Spielernamen-Eingabe # 

2030 7 ara 

2049 MODE O:PEN 14 

2050 LOCATE 3,1:PRINT A$t1) 

2050 LOCATE 3,2:PRINT A$t2) 

2070 LOCATE 1,34PRINT A$(3) 

2080 LOCATE 1,5:PEN 2:3PRINT STR 
ING$ (20,143) 3 

2090 LOCATE 1,1Z:ıPEN 4+PRINT ST 

RING# (20,202) 

2100 LOCATE 1,13:PRINT CHR$ (202 
I3:LOCATE 20,13:PRINT CHR$ (202) 


’ 
2110 LOEATE 1,144PRINT CHR$ (202 
I)s:LOCATE 20,14:PRINT CHR# (202) 


; 
2120 LOCATE 1,15: PRINT CHR#$(202 
)sıLOCATE 20,15rPRINT CHR$ (202) 


1 

2130 LOCATE 1,1&:PRINT STRING$St 
20,202); 

2140 LOCATE 2,10:PEN 8:PRINT"Na 
me ? (max.18 Bst.)"” 

2150 LOCATE "ZI FEN 1: INPUT"" 
spielers 

2160 IF LEN (spieler$) >18 THEN L 
OCATE 1,143 PRINT CHR$(18) ;:60T0 
2090 

2170 RETURN 

Z1B0 "Enke 
... 

2190 '* Explosion der ENTERPRIS 
E » 
2200 
... 
2210 RESTORE 5350:4NOVE x-20,y+1 
O:CALL sprite 

2220 FOR c=1 TO 100:50UND 2,426 
«1,744 +1:NEXT 

2230 CALL sprite 

2240 RESTORE 4620:MIWE x,„ytCALL 
sprite 

2250 FOR n=7 TO 1 SIEP -1 

2280 SOUND 11,425,40,ny 441 

2270 NEXT 

2280 RETURN 

2290 He 
r* 


a EEE ZZ 2 SS ZZ 2 22 22 2 272 212 202 207 


'* Explosion KLINGON-raume 
"EEE EEE 


2320 RESTORE S100:MDVE ku+iö,ky 
+10:CALL sprite 

25350 FOR c=1 TO 100:S50UND 2,426 
«147444 1:NEXT 

2540 CALL sprite 


Compute mib 


{MK} 


{L1} 


161) 
ins} 
{PP} 
{NB} 
{a0} 


KB} 


{1A} 


top} 


IR 
106} 
{AP} 
£0D} 
{FH} 
CA} 
“ar 
cc} 
{CB} 
1033 


<ca} 
{BP} 


{np} 
iHL} 
{HG} 
{BL} 
tBK} 
tim} 
£FK} 
CHH} 
t6m} 


{PK} 
(PB) 


2350 RESTORE 4800:HMDVE ka,kyıcAa 

LL sprite 

2360 FOR n=7 TO 1 STEP -1 

2370 SOUND 1.426,40 ,nny,,+1 

2380 NEXT 

2390 kr=-130: ky=INT (RNDH225+108 
I):MDVE kx,.kysCALL sprite:rkseks- 
1:G0SUB 2720 
2400 'ume 

.. 

02410 IF ks=0 THEN d=d+1:605UuB 2 

720:601T0 2460 

2420 RETURN 

2430 (ee 

2440 '# Naschsten Level * 

2450 ee 

2460 ks=20:G05UB 2720: RESTORE 4 
800:MDVE kx,ky:CAll sprite:rlev= 
lev+l: IF lev=&4 THEN GOTO 3480 E 
LSE bo=sh#100: sc=sc+40+ho: GOSUB 
2640: RESTORE 4620:MDVE x „vıCAL 
L sprite 

2470 IF lev=1 THEN GOTO 2560 
2480 LDCATE 3,8:PEN 2:PRINT"F L 
orTe "ılav-i 

2490 LOCATE 4,101PEN 3:PRINT"ve 
rnichtet !t!" 

2500 LOCATE 3,121PEN 8:PRINT"Bo 
nus #":bos "Pkt. "sPEN I 

23510 FOR c=1 TO 3000: NEXT 

2520 LOCATE 1,8:PRINT STRINGS(2 
0,352) 3sPRINT:FRINT STRING#(20,3 
2); 

25350 LOCATE 1,124PRINT STRINGSt 
20,32)3 

2540 IF sh<10 THEN x=456:MDVE % 
«yY:CALL sprite: GOSUB 2790 

2550 PEN 1 

2560 LOCATE 4,12:PRINT"TLE VE 
L "ılev 

2570 LDCATE 5,14:PEN 2:3PRINT"P 
LAVER" 

2580 PEN 1:LOCATE 11-INT (LEN (sp 
ieler#)/2) ,16:PRINT spieler 
2590 FOR c=1 TO 3000: NEXT: LOLCAT 
E 1,12:PRINT STRING$(20,32) 5 
2600 LOCATE 1,14: PRINT STRINGSL 
20,32) 1t1PRINT:PRINT STRING$ (20, 
32)3:6070 1280 

2510 "HH EEE 
...... 

2620 '# Punktetabelle aktualisi 
eren * 

2630 "EEE 
nu... 

2640 IF sh>10 THEN sh=10 

2650 IF sh<O THEN sh=0:60SUB 22 
10:G6070 3380 

2450 FEN 1:LOCATE 10,22 PRINT 8 
TRINGS(10,32) 1 FOR c=1 TO shsLO 
CATE 9+0,22:4 PRINT CHR$S(233) 3: NE 
“T c 

2670 LOCATE 8,24:PEN 1:PRINT US 
ING" #H#HH sc 

2680 RETURN 

2670 
nenn.* 

2700 '# aktuel.St.i.2eile 4 pri 
nten #* 

2710 re 
un... 

2720 PEN Z+LOCATE 4,4:PRINT CHR 
#124) ;ks; CHRF$ (24) 

2730 LOCATE 10,41PRINT CHR$ (24) 
Se; CHR# (24) 

2740 LOCATE 17,4:PRINT CHR$ (24) 
sd;sCHR$ (24) PEN 1 

2750 RETURN 

2760 EHE 
..n.." 

2770 '% Energie-Tankraumer steu 

ern * 

2780 
nen 

2790 PEN 1 

2800 IF sh<O THEN sh=0:1605UB 22 


Test Level-Ende 


A Zn 12 nn 2 az ZZ zz En a 1 1 





r 


10:G0T0 3580 

2810 etx=-1201ety=y+B8 

RESTORE 5640 

FOR c=-120 TOD 254 STEP 8 
MOVE etx+tc,ety:CALL sprite 
SUUND 2,144,5,54 4,1 

FOR ccei TO SO:NEXT ce 
CALL sprite 

28980 NEXT c 

FÜR c*=244 TO 464 STEP 4 
MIVE etx+c,etyıCALL sprite 
SOLND 2,288,5,5, 231 

FÜR ec=i TO S0:NEXT ce 
CALL sprite 

NEXT c 

MOVE etx+c,ety:CALL sprite 
FOR c=1 TO 1000:NEXT 
shmah+4: IF sh>10 THEN sh=1 


2840 


29009 
2710 
2920 
29730 
2740 
2950 
29760 
2970 
o 
2980 LOCATE 10,22:PRINT BTRINGs 
(10,32) 3 

2990 ton=239: tansteigerung=O 
3000 FÜR c=1 T0 sh b 

3010 LOCATE 9+c „22:PRINT CHRS(2 
35) 3 

5020 SOUND 2,ton-tonsteigderung, 
25,5 

5030 tansteigerung=tonsteigerun 
g9+12 

3040 FOR cc=1 TO 300:NEXT cc 
35050 NEXT ce 

3040 FOR c=1 TO 20004NEXT c 
3070 CALL sprite 

SOB0 FOR c=344 TO -120 STEP -B 
3090 MOVE c,ety:CAlL sprite 
3100 SOUND 2,144,5,5, 7,1 

5110 FOR cc"m1 TO 50:NEXT ce 
3120 CALL sprite 

S130 NEXT c 

5140 FOR cc=i1 TO 20002 NEXT ccıS5 

OUND 5,119,2100,4, 4,1 

3150 RESTORE 442041 MOVE x ,yıCALL 
sprite:rRESTORE 5590 

5160 FOR c=4 TO 456 STEP 8 

3170 MOVE x-c,y+4:CALL sprite 
S180 IF c#2>=700 THEN 3190 ELSE 
FOR ecei1 TO 700-2#C:NEXT cc 
5190 MOVE x-c,y+4:CALL sprite 

3200 NEXT c 

3210 RETURN 

3220 HH 

3230 '# Spiel-Anleitung #* 

zs240 (Bunker 

3250 BORDER 2&:PEN 1 

3240 LOCATE 12,2:PRINT"S TAR 
RER" 

3270 LUCATE 1,3:PEN 41:PRINT ST 

RING$ (40,207) 

3280 LOCATE 2,6:PEN 1:PRINT"Ste 
rnzeit 26.1253" 

5290 LOCATE 2,8:PRINT" Dies sin 

d die Abenteuer des Raumschiffs 
ENTERPRISE, das mit seiner 500 

Mann starken Besatzung unt 

ervegs ist um neue Welten zu er 
forschen, die nie zuvor ein Men 
sch betreten hat....." 

3300 LOCATE 2,16rPEN 9:PRINT" S 

chluepfen Sie in die Rolle des 

Kommander James T. Kirk 

und starten Sie im Auftrag 
der UNITED FEDERATION or PL 
ANETS zur Randweit FOWLER'S PLA 
NET“ 

3510 LDCATE 12,24:PEN 1:PRINT"M 
usic offr >SPALE<” 

3320 GOSUB 4470:L0OCATE 12,24:PR 
INT STRING$118,32)41+LOCATE 14,2 
“PEN 1:PRINT">>> SPACE <<<" 
3330 EALI 2BB18 

3340 CL8 

3350 LDCATE 12,2:PRINT"TS TAR 
TREXK" 

3360 LDOCATE 1,3:PEN 11:PRINT ST 
RING# (40,207) 

3370 LOCATE 1,.6:PEN 14PRINT" FO 


ue7 


EN} 
{EB} 
<om> 
{PB} 
<FB} 
JH) 
iKI} 
{PB} 
{GA} 
HI) 
{J1) 


{BP} 
{00} 
{FD} 
AH} 
tar) 


{BR} 


{HAI 
cm} 
{FF} 


<DN} 


tBH} 
tFE) 
{FE) 
tEO) 
{PE) 
{GL} 
{HB} 
121,9) 
<CB} 
{NIT 
ir) 


<BN} 
t0EI 
{HN 
<cH} 


{CB} 
KG} 


{BC} 
<0p} 
tDNI 
{BP} 
DC) 
ILL} 


<0D) 


{Dr} 


<0F} 
{EA} 
tFE} 
tan) 
tpP}r 
1003 


wuL3 


WLER'’S PLANET ist eine neuentde 
ckte Welt weitab der uebliche 
n Handels- routen und eine 
fuer die UFP wertvolle Welt." 
53580 LOCATE 1,10:PEN 11:PRINT"” 

Aber auch die KLINGONEN interes 
sieren sich fuer diese Keilt ! 
” 


35370 LOCATE 1,12:PEN 1sPRINT" 5 
ie sollen nun mit der USS ENTER 
PRISE den Planeten vor dem Zu 
griff der KLIN- SBONEN retten." 
3400 LOCATE 1,15:PRINT" Ihr Rau 
eschiff ist mit einem energie- 
reichen Phaser und einem star 
ken Schutzschirm ausgest 
attet, dem die KLINGONEN n 
ur ihre Flottenstaerke en 
tgegenzusetzen haben." 
2410 LOCATE 1,20:PRINT" 5 KLING 
ONEN-Flotten stehen Ihnen gegen 
- weber „Beginnen Sie den Kampf, 
aber unterschaetzen Sie d 
en Gegner nicht tt" 
3420 LOCATE 1,23:PEN 11:4PRINT” 
vViei Glueck !} t* 
3430 LUOCATE 12,24:PEN 1tPRINT"M 
usie offı >SPALE<" 
3440 GOSUB 4470:L0CATE 12,24:PR 
INT STRING$ (18,32) 411LOCATE 14,2 
A:PEN 13PRINT">>> SPACE <<<" 
35450 CALL &BB18 
3460 CL3 


3470 LOEATE 12,2:PEN 1+PRINT"S 


TAR TREXK" 

5480 LOCATE 1,.31PEN 11:PRINT ST 

RINGE (40,207) 3 

3490 LOCATE 1,7:PEN 1:PRINT" Di 

@ ENTERPRISE wird mit dem Joyst 

ick gesteuert.” 

3500 LOCATE 1,7:PRINT" Fuer jed 

en Abschuss erhalten Sie 40 — 
&0 Punkte.” 

3510 LOCATE 1,11:PRINT” Wird di 

e ENTERPRISE von einem Klingon- 
Raumer getroffen,so wird Ihne 

n etwas Schutzschild-Energie 
abgezogen." 

3320 LOCATE 1,15:PEN 11:PRINT" 

Achtung !"ıLOCATE 1,1&6:PEN 1:PR 

INT" Auch bei Kollisionen Eneraqa 

ie-Verlust ! Ausserdem erhalte 

n Sie bei Kollisionen keine Pu 

nkte." 

3530 LOCATE 1,20:PRINT" Nach je 

dem Level erhalten Sie 100 Pkt. 
fuer jedes zehntel Restenergi 

e und #inen Sonderbonus am 
Ende des Spiels." 

3540 LOCATE 12,24: PEN 1:PRINT"M 

usiec offı >SPACE<" 

5550 GOSUB 4470:L0OCATE 12,24:1PR 

INT STRING$(18,32)3:L0CATE 14,2 

A4PEN 1:PRINT">>> SPACE <<<" 

3560 CALL ZBBIS 

3370 CLS: RETURN 

SSBO nn 

= 

3590 

- 

3400 

»“ 

3610 GOEUB 3840 

3620 LOCATE 3,8:PEN 2:4PRINT" Ihr 

e Mission war" 

3630 LDEATE 5,10:PEN 1:PRINT"ER 

FOLGLOS !t” 

35646 LOCATE 4,13tPEN 6:PRINT"Ta 

belle LJ/NI":PEN 1 

35650 a$=UPPER$ ( INKEY$) 

3660 IF at="N" THEN MODE 2:EnND 

3570 IF at="j" THEN BOBUB 41201 

ECLS:RUN ELSE 3550 

TB HH 

5690 '* Mission erfuellt # 

3700 "re 


*# Mission nicht erfuellt 


ee 


Compute mib 





{HOF 


HE} 


FI} 


{KO} 


<A) 
DI} 
{GP} 
1E9} 
{DH} 
{Do} 
iFK} 
10) 


103} 


{HP} 


sıF) 


{BF} 


<PM} 
{133 
<DDI 
ic3) 
zam 


mE} 


{if} 
{BH} 


“AL? 
t0c) 
tDN? 
tım) 


<A1) 
<nG} 
<PA} 
tBN} 


programme 


5710 RESTORE 4420:MOVE »„ysCALL 
sprite 
3720 sce=se+sh#100+B0SUB 2440 


3730 LOCATE 

vo ıt"“ 

3740 LOCATE 

e haben es" 

3750 LOCATE 

SCHAFFT tt" 
3760 LOCATE 4,1S:PEN 1:PRINT"Bo 

nus 5":ch#=100 

3770 LOCATE 4,18:PEN &Z:PRINT"Ta 

belle LJ/NI"+PEN 1 

3780 as=UPPERFINKEY$) 

5790 IF as="N" THEN NODE ZıEND 
3800 IF a#="J" THEN GOSUB 4120: 

RUN ELSE 3780 

3810 "HH 
“nn... 

3820 '# Bergung der besch. ENTE 
RPRISE # 

3830 "Re 
........ 

3840 RESTORE 6080: 1=4801 y-30B:b 
“=44Mıby=152 

3850 MUVE x,„ysCALL sprite 

3860 RESTORE 5790 

3870 FOR bx=456 TO 450 STEP -A 
3880 MÜVE bu,by:CALL sprite 
5870 SOUND 2,425,20,5, 4,1 

3900 FOR e=1 TO SO:NEXT e 

3910 CALL sprite 

3920 NEXT bx 

3930 FOR by=152 TO 300 STEP 4 
35940 MOVE bx,by:CALL sprite 
39750 SOUND 2,213,20,5,4+13 

3960 FOR c=1 TU 100:NEXT c 

3970 CALL sprite 

3980 NEXT by 

3990 bx=440:bv=300 

4000 MOVE bx,by:CALL sprite 
4010 FOR c=i TOD 3000:NEXT c 
4020 CALL sprite:RESTORE &080:M 

DVE x,y:CALL sprite 

4030 by=308: bx=464 

A040 RESTORE 6240 

4050 FOR bx=464 TO 634 STEP 4 
4050 MOVE bx,by:CALL sprite 
4070 BQUND 2,851,20,5,,,1 

4080 FOR ct TO 100:NEXT ec 

4090 EALL sprite 

4100 NEXT bx 

A110 RETURN 

A120 
4130 ‘# High-Score-Tabelle # 
OO 
4150 MODE 1 

4160 LOCATE &,2+PEN 1:PRINT"DIie 
":LOCATE 10,24PEN 2+:PRINT"STAR 
TREK ":PEN 1:LOCATE 20,24PRINT 
"Highscore-Tabelle" 

4179 LOCATE 1,4:4PRINT STRINGS(A 
0,143); 

4180 gud#50:h=te-d) #201 imko#40r 
j=k1#150 

4190 LOCATE 2,4:PRINT"Anzahl de 

r Treffer 1"3:PRINT USING"#Rn## 
"diz:PRINT" Bonus: "5:PRINT USI 

NGHHNN"sg 

4200 LOCATE 2,7:PEN &:PRINT"Anz 

ahl Fehlschuesses "3 PRINT USING 
“HN je-di PEN ZePRINT" Abzu 

g1"s:PRINT USIND"#HM#"ıh 

4210 LOCATE 2,8:PEN 1:PRINT"Anz 
ahl Kollisionen 1";:PRINT USING 
"rih"skossPEN 2:PRINT" Abzug 
i"4:PRINT USING"#RHM" 71 

4220 LOCATE 2,91PEN 5: PRINT"Ent 
kommen sind #"s1PRINT USING 
“h"ikls:PEN 2:PRINT" Abzug 
="s:PRINT USING"#HR#",J 

4230. LOCATE 2,104PEN 1:PRINT"So 

nderbonus gesamt ı"3:PRINT USIN 

Granan#"sg-h-i-j 

4240 LOCATE 2,11:PEN 6:PRINT"DE 
INE PUNKTZAHL ı"1:PEN 14:PRI 


TıT:PEN 1:PRINT"BRA 
5,.101PEN S:PRINT"Si 
Ss13:PEN S:PRINT"GE 


ick} 
{BD} 


iNJ} 
13393 
{PO} 
<J6} 


1339} 


{FB} 


iK0} 


{KE} 


iGF} 


programme 


NT USIND"AHHHR" mc PEN 1 

4250 sce=sc+g-h-i-j 

4260 t=0H IF se<scoret4) THEN 43 

10 

4279 IF sce<score(3) THEN scoret 

4)enc:name$(4)espieler$:50T0 43 

10 

4280 IF sc<score(2) THEN t=1:60 

TO 4310 

4290 IF sc<scoreti) THEN t=2:60 

T0 4310 

4300 IF sc<scoret0) THEN e=SsEL 

SE t=4 

4310 FOR i=1 TO t 

4320 score(5-i)=score(4-i) name 

#(5-i)=nane$(4-i) 

A330 NEXT i 

4340 score (4-t)=escınamest4-t)=3 

pieler$ 

4350 LOCATE 1,131PRINT" PLATZ 
PUNKTE NAME" 

4340 PRINT STRING$ (&78,"-"):L06 

ATE 1,15:FOR i=o TD 4 

4370 PRINT" "z1+1:LOCATE 16-I1N 

TILOS (score (1)+1) /L0G (107) „15+i 

:PRINT scoreti)ıLOCATE 22,154: 

PRINT name#ti) 

4380 NEXT i 

45390 LOCATE 1 ,19-t3PRINT">":LOC 

ATE 1,24 

4400 LOCATE 11,24:PEN 1:PRINT"N 

usie offı ISPALEC" 

4410 GDSUB 4470: a$="";LOCATE 11 

„24: PRINT STRING (18,32) 4 +LOCAT 

E 4,22:PEN &ı INPUT"Noch ein Spi 

el"jat:PEN 1 

4420 IF as="J" OR as="j" THEN HM 

ODE 0: BORDER 15: 5cC=0:5hr10:ks=Z 

Oslev»1:160T0 1020 

4430 IF at="N" OR af="n" THEN M 

ODE Z:END ELSE 4410 

AAO TE 

.n... 

4450 '* Melodie (Eurovisionstit 

el) * 

4460 

“.... 

4470 tonh=0 

4480 RESTDRE 4560: tanhetonh+lr1 

F tonh=5 THEN tonh=i 

4490 FOR c=1 TO 36+READ ton,ton 

lstondau=200/tonl 

4500 as=INKEYSı IF ascy"" THEN A 

540 

4510 SOUND wo 2.0:80NND S5,ton/ 

tonh,tondau,4 

4320 NEXT c 

4550 SOUND 5,0,100,0:G0T0 4480 

4540 SOUND 5,0,1,0:3FDR c=1 TO 5 

OO:NEXT € 

A550 RETURN 

4540 DATA 759,4,558,4,549,9,506 

‚8,451 ,4,569,4,53797,2,451,4,451, 

4,426,4,379,8,425,8 

457090 DATA 451,8,426,8,379,4,506 

‚8,548,8,506,8,451,8,506,4,758, 

4,568,4,540,8,506,B 

4580 DATA BERN R EEER, 2,451 

„4,451,4,426,8,379,8,451,8 ‚426, 

8,506,3,568, 9,548, 1. 5 

ASIO TEE EEE 


EEE AR EEE 


4600 '# ENTERPRISE - SPRITE + 
ab10 a 2 2 SZ 2 Ey green ee ee 
4620 DATA 3 
4830 DATA 2 Ananas 
4444494444 

4640 DATA kick 454555 
S5E544444 

4550 DATA kkkkk 22 244444 
AAAAAgan 


#640 DATA Aaaaaaaaaanaaa 
2244 


494 


4570 DATA 4442444444444 a4 
4 

4680 DATA kkkkık 444 244 
2690 DATA 2 4 244 


{KQ0} 
{PM} 


iKD> 


<am) 
{no} 
{NH 


i6F} 
{PE} 


tEE} 
166} 


2003 
tEI} 
<GL3 


{LI} 
i6F} 


106} 


XIL} 


{GE} 


CHA? 


{GM} 
<BD3 


t6K} 
160) 
t3L} 
{PL} 
FH} 
{nc} 


<DL> 
<ND} 
<LF} 
tAK} 


<PD} 
Um) 


£31} 
£FP} 
<B0}3 


47090 
4710 


DATA 
DATA 
DATA 


kaaa a9 
AArAAAaRaAA 
14244AaAana04 


DATA 124242924444 


4740 DATA 1aa22a2424444 
4750 
4760 


4770 


DATA ananasana 
DATA aaaa444 
MRRUREHEHEEREN EHEN 
"* KLINGON-RAUMER — SPRITE 
HH 
55 
5355 
5so8a 
558888 
4444455 
AAAAAASS5S 
4944666 
aasa 


DATA 

8 
DATA 

855 
DATA 
8 88535 


DATA 
0898988BHI33IIII3Z 
4840 DATA 


4550 DATA 
ssesge 
4860 DATA 
222222 
DATA ninn 
22222 


nn jnjinn2222222222 
226 ; 
ann innn 312333222322 
22 


DATA nnnjjjinnn 312333222322 

DATA  nnnj,ininn2222222222 

DATA nnn jinn 

DATA nnn 

"A EEE 

'* Landschafts-Sprite # 

SS Zn a ee een 1 

DATA o0 o o 
o 

oo o o 


nn 
4970 


4880 DATA 


4890 DATA 
4900 
A710 
4720 
4930 
49340 
4750 
49760 
4970 


o 
DATA ooo 
sooo © 


. booo 
o000 o 
voono onoo Soo 
ooo 0 oooo o 

o oono Sao 

ooco o 

4990 DATA 0003 0 oooaoSonooso 
o o0o9000 oo ooSooco ooo 

oo 00003 o ononoFoonoFon oo 
o00 00 003000 ooo oo ooo 
05 0 ooomo3ooondon ooScaon nd 

voScon ooo 

5000 DATA o0o0030003n00030000300 
oo3ommoSoooo oammoS boooo © 


o 
000 
oono & 


oo00000030003000030000300003000 ' 


ooSncon mooaoS ooooo O00Goon 
00300030000 F3000030000S0ono00So0u 
o nanonoos oo0 

5010 DATA ononoo0oFomonnnonoBBonn 
oSponsommonooSonnoonon oSononos 
eooooomono0oSomnonnoaBBoooo3onono 
e0o0n00Sooo0so00 GSopnnoSononon 
ennooSomoomon0oBBonot 
ofooooooon oSoo 

5020 DATA 81888B0o00mn0B3HB3B3H8 
88000008888o00S3000008B00030B8Ba 


5030 DATA 111808883 .mB3B1 83B88B 
RaSsalsisjelslel Tejsizlalalsiefelalels 2 1212)218721272767 
G08B111888B8EmmRHEL EBBEBEL LUSBA 
SERHRBEBBOHHHBERHHFEBERHDOOUR 
1888B:E3MMAHH1 BEBBETL BIEBASBEMEEB 
BEB000nBEmBRBRB +» 

5040 DATA ALL18BELEMBBRRREITBEBE 
111881 88nmdßa1 BABSBEMMBRBBBENAE 


Compute mib 


2003 
tan} 


tEE} 
{HB} 
HB} 
{JB} 
<CcE} 
iKI} 
{1A> 
CK} 
{NO} 
<DM} 
<tEL> 
{CH} 
<br 
mc} 
{FA} 
{BH} 
tom} 


{CD} 
{567 


CK} 
{DB} 
{HD} 
{LF} 
HB} 
inc} 
t1D> 
{DJ} 
{La} 
{FL} 


t0c> 


{LE} 


3m1530433033333 


BEBL1 11 188H1EMABSHHEL ARBBLL ei 
BönnEßBl SBRBBEmMMBBEBAEMERFEHIE 
118801 GmBBABBBIBSAHI1IGEL Bonn 
DI BEBREERMEHBEE 

5050 DATA B1198811EmBl HadBI 1881 
11ORABBBMEBBL 18481 BAEMBBL EBEMAR 
BB0881 18891 1Amd1BHRG118S111HGE8 
EEMEHBI 1BHAL BAEMBEL BESMBEIBEIBBBL 
18881 1EmB1 80881 1B811188BEBEMARH 
110891 8BAm881 08 


BEMABBREBEBEEBERMBSAREAMBRRREREG 

BBREHEBHEBABARARBEBEAESBERHEMLRHE 

BRAABBBBEEMBEHBE 

3070 "are 

-.....u.n 

50980 '# Klinguen-Schield-Expl.— 

Sprite ® 

8090 War 

“rn 

5100 DATA 
333j3j 

5110 DATA 

ee ehe 

20 DATA 


33333 
3333jjinnjj3) 
J33jinnnjjinnjin 
5130 
33333 
5140 DATA 


3j 
5150 


Innj3i33i3iijjsig 
jninnnj 


33n33 J33jj 
j3jjnjjj 
3i3 
33333J 


DATA 


S160 DATA 


5170 DATA 


5180 DATA 


5190 DATA 


5200 DATA 


5210 DATA 


DATA 


5230 Data 


5240 DATA 


5250 DATA 
5260 DATA 33 
3jj 3 
3270 DATA 
3n3j5jjs 
5280 DATA in 3jj 
Janjn3jjj333gI 
52970 DATA 
33334J3nnnj 
53500 DATA JjInns33sinnjjj3s 
333 InnJj 
3310 DATA mr] 333jj 
33jj 
EEE 


3i3 
333 im 
J3J33sInsIsssnnnjjg 


"# E.-Expl.-Shield — Sprit 
TREE EEE EEE 
333j 33 
3n33333315is 


Jiinnjinnnjinnj 
SAHNE 
5380 DATA Jjjinjjj3Iisianjjsj 
33333333311 J3J Jin) 
5390 DATA Injjj 3333 
333 Jin} { 
33j 
ji 


333 
Abm EEE EEE 
8370 


5400 DATA Jijnjj 
injj 

5410 DATA ijins 
3333 


t0P} 


t8P} 
ton? 
{PH} 
t0P3 
tEM} 
“1.33 
te0} 


cn} 


c3B} 
am} 
1343 
t969 
tLE} 
<LP} 
an} 


{L0} 








5420 DATA 


5430 DATA 


5440 DATA 
DATA jinj 
Jssinnij 
ins 
Jininjj 
33jj 
In3ijj 
Jin; 
inn} 
3jis)j 
injj 
Jinnj 
3jjinij , 
3jjj 
inmss3s 
jinjjj 
3 


5450 
5450 DATA 
5470 DATA 
5480 DATA 
5470 DATA 
DATA 
S510 DATA 
5520 DATA 
S530 Jnnnj 
5540 DATA 343333 
g550 3iins 

Injj3 3jj 

Jinjjjinj3 3 

3jjinnnjijjis 


4341nJ533335 


33313333 

5560 DATA 
3jjjjinnjj 

8570 DATA 
Jnijjinjis 

5580 DATA 

nnj 33j 

5570 DATA 
BER] 

Sös00 DATA jjjj 

33 

5610 HH 
u... 

5620 '# Eneraie-Tankraumer - Sp 

rite ® 


SEO Te 
a. 
5640 DATA +44 
56450 DATA a8 0000000 
S460 DATA 8989 ubbshna 22 
3670 DATA E98 oshbsnn 229 
2 
56580 DATA 0089889Bkooononoak222 
22 = 
5690 DATA 100888888K0566600Kk222 
22 
8700 MTA 100899 IMBkobhbbnokkkk 
kk 
5710 DATA 100B8B9BBkoonononkkkk 
k 
5720 DATA oo8FBBHAkkKkkKkkkkkkk 
ıs1111 
3730 DATA BE7I78:KIFIISTI5KKKZ 
111111 
5740 DATA gene 5555555 22 
5750 DATA 88 
5760 
5770 '# Bergungsraumer-SBprite # 
5780 "Re 
5790 DATA 
88 
5800 DATA 
888 
5810 DATA 
88 
s920 DATA 
889 j 
5850 DATA 
88 kkkk 
SB40 DATA 
88 kknnkk 
5850 DATA 33 8B 
BB4knıkknkk 
SB&0 DATA 33 88 
BBAKKKKkKEKK 1 
5870 DATA 333333 8 
BBAKKKKEKK 
Sea0 DATA 39333333 BB 
BBAKKKKKEK 


{NG} 
t6F} 
{DE} 
{EE} 
166} 
{MDJ 


inc} 
{am} 
BL} 
{NJ} 
<I6} 
t6F} 
{FJ} 
ta) 
166} 
{NT} 
{NN} 


<B1} 
EB} 
cc} 
PB} 
PP) 
106} 
<BP} 
<{LB} 
iKF} 
<NI} 
{MG} 
(303 
1} 
inB} 
{pn} 
{FHr 
{MF} 
tEI) 
{DPF} 
{EI} 
{m 
{PN} 
Co} 
(103 


tLB> 


{FI} 


{DC} 
EB} 


5870 DATA 333333533588 





BBAknnnnkki 
5700 DATA 333333333II8AHH8B8388 
BBBEHRERSBEKKKEKKKI 
5910 DATA 7777777771777 77777 
777771 TT TIERE Ki 
59720 DATA 77777777772222222222 
ZRZZZRZ2TT2EKKEKEK A 
57390 DATA 7?r7777342222222222 
2222222277 2knkknkk 
5940 DATA 77 3544447777774 
A447777777 Peknnkk 
59750 DATA 111111 aaa 111 
aaa 111 kkkk 
S9760 DATA 4444 
2444 
5779 DATA 4344 
4444 
5980 DATA kkkkkkkkkkikkikkikkk 
kkEkkkEkkkkkKKK KK 
59970 DATA kkkkIIFFIKEKKIIIII9 
799797979797 9Kk1 1 IKK 
6000 DATA kkkkkKFFFIKKIFLILIL 
FIPIPFLIIKKEKEKkK 
6010 DATA kkkkkk99:K979999999 
FIITV7FFIIKkKkkkk 
6020 DATA kkkkkkkkKKkKKE KK 
kikkkkkkkkkikkkk 
6030 DATA 
kkkkk 
&040 DATA 
k 
6030 "ann ann 
u... 
6080 '= Kampfunfaehige ENTERPRI 
SE # 
6070 "EEE 
u... 
&0B0 DATA 3 
8090 DATA 2 4444 
AAdAnAgA 
6100 Data kk 45455 
55544444 
&i110 DATA kkkk 22 44444 
49444444 
6120 DATA 443444243444 aaa aaa 
4444 
6130 DATA 4 Aaaaayaaaa 44 
4 
6140 DATA kkkkk 444 444 
6150 DATA 2 444 4344 
61&0 DATA aaa 444 
6170 DATA Aanaaanaaa 
1890 DATA ı 24 294444 
A 
6190 DATA 144444444444 
a 
6200 DATA 1442244 4444 
4 
6210 DATA ara 
6220 DATA a 0 an4 
6230 HH 
“...... 
6240 '* Enterprise u. Bergungss 
chiff # 
6750 re 
u...... 
6280 DATA 
3 
&270 DATA 2 4 
444 aaaaaaıa 
6280 DATA kk 4 
5955 55544444 
6290 DATA kkkk 224 
4434441434944 - 
6300 DATA AAARAHAAAA AA 
414444488 
6310 DATA 4 AA 
444 aca 
6320 DATA kkkık 444 
2384 88 
6350 DATA 2 434 
4434 [:]2} 3 
6540 DATA k44A 
aan 88 kkkk 
6350 DATA 24444 


Compute mib 





programme. 


2444 88 kknnkk 
tHEI| 5360 DATA 33 esı 44 4 
AAAaaA BBdknıkknkk 
{J9}| 6370 DATA 33 salaasand 
444444 BBAkKkkEKkEK 
{MN} | 5380 DATA 333333 8 1442244 
A Aa BBAKKkKkEKKKI 
tEK}| 6370 DATA 3933553355 88 a49244 
444 BBAKkKkEKEKI. 
{DM}| 6400 DATA 333333333388 244 
a4 884knınnnkki 
XFF}| 6410 DATA 3335333333IIBBBBBBAESB 
BHBBBBBBBBBKKKEKKEKL 
<LPpr3| 5420 DATA 777777777777777777777 
7771777777 70kkEkki 
<«Hor| 6430 DATA 77777777772222222222 
2222222277 2kkkkkkki 
<mo>| 6440 DATA 7r1777342222222222 
2222222277 2krıkkrıkk 
FC} 6450 DATA 77 3344447777774 
4447777777 Tkkankk 
<ıny]| 6460 Data 111111 4444 11 
24344 111 kkkk 
tFp>| #470 DATA 2244 
4444 
<HA2| 6480 DATA 4444 
aaa 
(5603| 6490 DATA kkkkkkkkkkkkkkikkk 
kkkkkkkkkkkkkkkikkk 
iPnY| 6500 DATA kkkkIII9KKkKk97979797 
9997799999 k 1 1 Ikkk 
<DDY| #510 DATA kkkkkKFPIAKKIFLLIIIL 
FIIIIFLFINKKkKEKkE 
tKEI| 4520 DATA kkkkkkIF6K79999999 
FIFFFFIFTTEKKEkKEK 
“«H)| 6530 DATA kkkkkkkkkkkkikkikick 
kkkkkKkKKKkKKKKEK ’ 
(607 | 6540 DATA 
<CD} kkkkık 
6550 DATA 
Fk} k 
65 
t1E»)| #ru# 
6570 '# ENTERPRISE m. Schubstra 
<Dar| hi * 
650 
tEp> | Hann 
6390 DATA 
{HF} ns 
{667 | 6600 DATA 
06) nnnnj 
1333| 6610 DATA 3 
{Po} nnjjinnj 
6520 DATA 2 ELEIEE 
ıFrc3) | 4444444444 jnn jinnnnj 
6550 DATA kkk 454553 
<a03 | 39554444An innnnjjinnnnnnj 
6640 DATA kkkkk 22 a94444 
{ND}+| 44444444 j innf\iinnnnj 
tJC}| 66550 DATA 44444444444444 444 
<DF} | 4444 nnnjjjinnnnj 
6650 DATA AAASAaAAaa4444 a4 
“BK+ | A nnnnnj 
6670 DATA kkkkk 444 244 
<c97 nj 
6680 DATA 2 234 444 
tBE} | 44590 DATA aaa 444 
6700 DATA 44444434444 
(D1} | 6710 DATA 144444444444 
4 
DD} | 4720 DATA 144444444444 
4 
{DB} | 4730 DATA 1442244344444 
4 
“PE} | 5740 DATA 4aaaaaaaa 
&750 DATA 4341448 
{NH} | 8760 'aun« WICHTIB +tı 
I man Das REM in dieser 
{FK} | Zeile darf NICHT weggelas 
sen werden !!! 
i{NB} | 5770 "u SAVE un. 
10000 SPEED WRITE 1 
{BE} | 10010 SAVE"STAR TREK" 
cDM} ENDE DES LISTINGS 


£DF} 
“13 


tPRI 


{PD} 
0) 
160) 
(LE 
{Ko} 
tıpr 
“LL> 
{DI} 


199) 
{BP} 


{HB} 
{cc} 


cHD} 
t£03 
<BJ} 


<BA} 
iKP} 
HEY 
<AaM} 


u. 


— 


Te TFT 9 E 


pr 


checksummer 
Endlich ist er da! 


Der neue Checksummer | 
für die Schneider-Computer CPC 464] 6641| 6128 


Worauf alle Schneider-User bis- 
her sehnsüchtig gewartet haben, 
das wird jetzt an ‚Si Stelle ver- 
öffentlicht: Eine erheblich ver- 
besserte Checksummerversion. 
Nun ist es möglich, schon bei der 
Eingabe einer Basiczeile festzu- 
stellen, ob ein Eingabefehler be- 


n wurde, 
Äb dieser Auge finden Sie hin- 
ter jeder Zeile eine zweistellige 
Se Koran au 
n mern ein 

rahmt wird. Anhand dieser Prüf. 
summe kann die Eingabe jetzt auf 
Ihre Richtigkeit hin untersucht 
werden 


Um ein beliebiges TRONIC- 


Programm abzutippen, gehen Sie 
wie bohet vor: Take Se zuerst 
den Checksummer und starten 
Sie diesen mit "RUN”, Auf die 
Frage nach dem verwendeten 
Computertyp antworten Sie bitte 
mit der en nden Compu- 
terbezeichnung (464/ 664/ 6128) 
und geben Sie dns ein. Anschlie- 
ßend wird der Checksummer ak- 
tiviert und der BASIC-LOADER 
automatisch gelöscht, Nun kön- 
nen Sie mit der Eingabe des Pro- 
mmes beginnen. Ist eine Zeile 
omplett eingegeben, so wird die- 
se wie üblich mit "ENTER” 
schlossen. Unterhalb der Zeile er- 
scheint daraufhin die Checksum- 


I 
’'+ SCHNEIDER LEPC E23 
*# CHECKSUMMER V 2,0 # 


# ic) 1986 


’* DOTTFRIED SCHMIDT # 
5 5 272 272 272722 22 272227222 °2°207 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SIESPERSEEHESSN 


u. 
“ 


FF 
ES 
ES 
CD 
20 
05 
oD 
78 
iF 
41 
c3 
&i 
FE 
c9 


INBIRSHHBFSEEH 


1140 


7 


gEURBBEBNIESEB 
SNBMARYIHSBRBBB 
SBBBEBHSTANRER 


S 
n) 
m 
D 
© 
= 


‚Ei,F1,C9 
‚04 ,EE,DO 
‚D2,E4,37 
,‚00,00,00 


sFOR i=&A000 TO &AOBS 


1150 READ a$ıPOKE i,VAL("&"+as) aNEXT i 
1150 CL8: INPUT"BENUTZEN SIE EINEN CPC 46 


4/6564 oder 6120", v$ 


1170 IF v#<>"464" AND v$<>"6&44" AND v$<> 
"&128° THEN PRINT CHR$(7)sGOTO 1160 
1180 IF v$="444" THEN adr=&BD3A: pufa=&n4 





CSompute mib 


me. Stimmt diese mit der im Heft 
ckten Summe überein, so 
wurde diese Zeile fehlerfrei einge- 
geben, 
Stimmen diese beiden Zeilen 
nicht überein, liegt ein Tippfehler 
vor, den Sie wie folgt korrigieren 
müssen. Dabei ist bei der Eingabe 
des Listings einiges zu beachten: 
Starten Ste niemals ein Pro- 
gramm, wenn der Checksummer 
aktiv ist. Kae ie En 
gramm nach der Ein sofort 
ab. Die Checksummen selbst 
werden nicht eingetippt. Sie kön- 
nen bei der Eing sowohl 
Groß- als auch Kleinbuchstaben 


me können alle Editiermöglich-' 


} 


keiten verwendet werden. Aus-' 
nahme: Eine Zeile kann nicht! 


durch die Ein 
nummer gelö 


der Zeilen-' 
werden. Um 


beispielsweise die Zeile 200 zu lö- 
schen geben Sie DELETE 200 ein. 
Leerzeichen die keine Bedeutung 
haben werden selbstständig igno- 


riert und gelöscht, 
sitzen Leerzeichen i 
Anfül : 


| 
/ 
| 


Allerdings be- 
hal von 


einen Wert 


und.verändern somit die Check- 


summe. Für den PRINT-Befehl 
kann auch das Fragezeichen ver- 
wendet werden. Viel Spaß und 


fehlerfreies a wünscht 


verwenden. Bis auf eine Ausnah- OTTFRIED SC T! 


ELSE IF v$="&44" THEN adr=&%BD5B: pufa=&d 

A ELSE adr=&BDSE: pufa=&BA 

1190 POKE &BF20,pufa:ıPOKE &BF21 ,LAC 

1200 POKE &BF22,PEEK (adr) :POKE &BF23,PEE 
Kiadr+1) 2 POKE &BF24 ,PEEK (adr+2). 

1210 POKE adr „&CI:POKE adr+1,0:POKE adr+ 
2,&A0 

1220 IF v$="&44" THEN GOTO 1250 

1230 IF v$="64128" THEN 60TO 1300 

1240 G0TO 1340 | 
1250 POKE &A010,&52:POKE &AO11,&DE: FOKE 
SAO&F „&524 POKE &A070,&DE | 
1240 POKE &A020,&D41POKE &A021 ,&EE:POKE I 
&A075,%&D4: POKE LAO76,KEE | 
1270 POKE &AOFF ‚&AAsPOKE &AOBO „LET: POKE f 
SA023,&96: POKE LA0O24 „LER | 
1280 POKE &A024,%&59: POKE &A027 ,&E2 | 
1290 G0TO 1340 
1300 POKE &A010,&4D:POKE &AO11,&DE:POKE | 
SAOAF „&4DsPOKE &A070,&DE 

1310 POKE &A020,&CFıPOKE &A021 ‚„&EE:POKE 
&A075,&CFsPOKE &A0O76,&EE 

1320 POKE &AOFF ‚&AS:POKE &A0B0,KE7:POKE 
&A023,&54: POKE &A024,%E8 

1330 POKE &A026,%54:POKE &A027 ,%E2 

1340 CLS:PRINT"CHECKSUMMER V2.0 IST JETZ 
T AKTIV!" 
1350 NEW 


11/87 
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Das nächste Heft erscheint 
bereits am 12. Januar 1987! 


Bis dahin wünschen wir 
einen guten Rutsch! 





* Kleinanzeigen * Kleinanzeigen * Kleinanzeigen * 





:T30 
Software 


Verkaufe 5 serie Spiele auf Kas- 
setie( Tow) zusammen nur 

10,-DMI Vorkiesil! Hubert Mühlba- 

cher, Platten-berg 3, 8221 Waging 


"+" 516/116 u. + 4 GRAPHIC- 


Nach den FJÜNGERN : das 

Zweite, "Die Maske” -lassen Sie sich in 

as der Phantasie entführen. 

Über 45 Bilder 2x10.Min., Cassette voll 

Cassette 20,-DM (Schein) 

oder per: NN+4,-DM VK. lo 

bei: GBR MEN Tone 161, 4650 

fo gegen 80 Pr. 
c-16 SPITZENBOrWERn 

-| 
ER 

Cassette kommt sofort für 10, DM Vor- 

kasse (incl. Porto) an: Wiese- 


müller, Birkenweg 37, 3408 Duder- 
a 


jele für CPC 464 auf Kassette für 
2 M (Schein). Bernd Ehring, 
Eisack-str, 9, 1000 Berlin 62 





Achtung C-16 User! 

Tausche und verkaufe Anwender- und 
Spielprogramme. Gr. Auswahl! UH Pe- 
ters, Gablonzer Str. 11, 2351 Trappen- 


*CPC-Schneider" *"CPC-Schneider" CPC-Schneider" 
Tausche und verkaufe Software auf 
Kassette und 3"Diskette! Wer schickt 
mir seine Liste zum Tauschen? Auf je- 
den Fall Liste anfordern bei: Andreas 
Günther, Bürgerm.-Trupp-Str, 25, 6700 
Lu.-Oppau, Bitte ausreichend frankier- 
ten Rückumschlag beilegen! 


***G 16/116/Plus 4 Zeichen- und*** 
***Grafikprogramme für 16K und*** 
sreinko augen Bor ber Dekiaee 
h gegen pl.Ing*** 
***M. Rätzel, Ulvenbergsir. 6,*** 
**+D-8100 Darmstadt 13*** 


*C-64°C-64°C-64°C-64°C-64°C-64* 
Silicon Warrior 5 DM, Space Shuttle 
10DM, Richard Petty's erh 10 
DM, MTSS Al 20. DM 
u.a, Pro-gramme. Alle Progr. auf Disk 
für Floppy 1541, Info gegen 80 Pf. 
Rückporto von Stfan Leinauer, Ahorm- 
ring 2, 8028 Tauf-kirchen 


©-16 11! Verkaufe TOP-Spiele für C-16, 

50% Ermäßigung auf jedes Spiel. Liste 
les 

bei Christoph Funkamp, 

Tel. 02851/2511 


C-16/Plus 4! Spiele und Anwenderpro- 
gramme nur 1,--DM! Große Liste anfor- 
dern gegen Briefmarke oder Rückum- 
schlag bei Jürgen Roumen, Eichenstr. 
49, 4054 Nettetal 1 


Brauchst Du heute noch Rs ne ping engl er, 
kauf bei Mini-Soft ganz viele. M n! Liste gibt es 
Restposten: C161116 Software jefmarke) bei SF-Soft, mühe 
Gammelpack 1 (5 Spiele) 11,11 DM Seulingen 

Gammelpack 2 (10 Spiele) 18, 18 DM Beispiel: Programm berechnet die be- 
Die Gamespacks beinhalten: z.B. Ko- ste Mut Serie zum Schummeln bei 
bra,Tennis,Moon Fighter, Jumpman ARBEI Individuell für Schü- 
u.a. Bestell es direkt bei: Mini-Soft, ler. Nur DM 5,- (bzw. DM 3,- bei 
Stryckweg 48, 3542 Willingen VC20). Bitte Computertyp angeben. 
Verkaufe Ober. ae Orte ©-64/128 el rogram- 
C16, z.B. SOCCER, SKFAMBLE me) z.B. Bard's Tale 30, SM 
ROCKMAN, und so. „Spieiekassone Liste Freiumschlag bei: Rudolf 
von Robtek. Bitte melden bei Ren& Lex, Prinzregentensir. 100, 

Reinthal, Tel. 02225/2890 ab 14 Uhr 8000 München 80 





COMPUTER SERVICE - DER C-16 SPEZIALIST 
Postfach 19304 - 7919 Senden - Telefon (07307) 6230 
24 Stunden Bestellservice (Anrufbeantworter) 
schnelle Lieferung - sagenhaft 8 Preiselli 
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c-16/116 Softwaretll 

20 Spiel- und ramme für 
nur 20, DM. Die Programme sind auf 
Kassette. 20 DM als Schein oder 


Höll-bergstr. 6, 6000 
Info-biatt für 80 Pf, in Briefmarken an- 
fordern. 


FREE 
DER MErA En 
#BÖRS 

# Ein Prof-Anwender 


Tel.: 0202/7028786 * 
Frrrkrrr 
Prei Programme aus Eige- 
nentw' für alle Schnelder-CPC- 
Computer (464/664/6128) erhalten Sie 
mit warsand von Friedrich Neu- 

per, Postfach 72, 8473 Pfrelmd 
Foren Sie einfach das kostenlose In- 
a an. Postkarte ge- 
n 


€ 18/1168/Plus 4:TOP-Spiele + An- 
wender,Graphicen + geehrt 


Pocher DEE BO Bader 


ab Januar 87 der Bombenhit: "USER" 
- Die C16 Zeitschrift auf Cassette, Mit 
Spielen, Anwender, Infos, Gratisanzei- 
gen, Tips & Tricks, Preis 6 DM + 1,90 
Porto, Anzeigentexte willkommen. 


C16, C116 Superspielet 

Info gegen Rückporto bei Hannes Kal- 
tenbach, Prielmayersir. 16, 7990 Frie- 
drichshafen 1 


So bestellen Sie: 


"C-16/118” Verkaufe 10 TOP-GAMES 
B. Goldrausch, Submarine, Inv. of 
asia ae grand Ship...) für 20,- DM auf 
Info gratis. Einsenden an: 
ma Banko, Alte Poststr. 14, 
4577 Nortrup, Tel: 064361285 
Suche Kontakte zwecks Erfahrungsau- 
stausch! 


© 128, C 64, C 18/116, Plus 4, VC 20 
“6 Spiele 19,90 

- Textverarbeitung 12,90 

- Adress, Karteikasten je 29,90 
« Video-, Musikarchiv je 29,90 
» Denktraining 19,90 

5 io gegen 20 Parken bei 
- gegen . h 
Com Tino 


15 für C-16 auf Kassette 
1 Ab 1.1.87 bei Kai Uwe 
1 5, 6422 Herbstein, 
20DM in den Umschlag stecken und 
abschicken Ill 

c-16, C-116 + Plus 4 Supersoftware, 
Info = 80 Pfennig. Anfordern bei 
Michael Husen, tr. 55, 

2800 Bremen 21 


10 C-16/116 Spiele für 10, DMI!! 

Mit: Pac-Man, Invaders of ihs Space, 
a ee en Ba 

gen, verlorenen 

zes, Mimi, Cave, Submarine. Bitte fran- 

kierten Rückumschlag mit 10 DM anı 

Peter Preuss, Remmelsweg 5, 

7107 Bad Friedrichshall 2, 

P.S. Tausche auch Software! 


Programme) 28. Fig Or un ua = 
z t Sim 

40,- DM, Print-Shop 35 

gen Rückporto bei: Rudolf It Lox. Pr Prinz. 
regentenstr. 100, 8000 München 80. 


"+... 0.64 TOP SOFTWARE ***"* 
++. Auf Diskette und Kassette ger" 
y , zB.JET,PSI 5, . 

tig!Bitte Lists anfordern! * 





Verkaufe VC-20 mit 64K-Erwelterung 
ern ng eriendr 
handbı 





Verkaufe wegen Systemwech: 

C116+64K für 150 DM. Außerdem 21 
‚z.B. Bomb Jack, Bei 

Pluspaket, Favo-rite 4, Turbo T: Zuam- 

für 260 DM (wenig benutzt). 

men für nur 880 DMI A 

Frank Roulands, Benrader-str. 13, 

4154 Tönisvorst 1 


Verkaufe Plus 4 nur 320,--DM, VC-20 
nur 100,-DM, 16K-RAM 60,-DM, ver- 
kaufe für C-16: Gehäuse + Tastatur 
25,- DM, TED-Chip 50,- DM, ROM- 


NN. Suche für Plus 4 EPROM-Brenner 
+ Piotter 1520 je 130,-DM, evtl, 
Tausch. Christoph Drube, Kasseler Str. 
28, 3530 Warburg, Tel.: 05641/1332 


*C-16/116/ +4 Hardware & Zubehör* 


64K-Erweiterung & Schalter 49,50 
64 K-Erwelterung o. Schalter 38,50 
84 K-Erwelterung mit Einbau 65,50 
Daten-Cassetten C15 5 Stück 7,80 

Computape Dataset C15 11,50 
Disketten Pen set 3 Stlok 8,20 
Endiospapier 1000 Blatt 28,50 
Kunststoff-Pinzette 125 mm 0,80 
Disketten 5 1/4” 10 Stück 12,80 
Kopiehalter Format A4 47,50 
Mikro-Lötkolben 12V/8W 9,50 
Daten Cassetten C15 1 Stück 2,20 
Cassetten-Archiv für 24 Stück 6,50 
EDV-Endlosposik. 250 Stück 22,50 


Versand per Nachnahme 
Fordern Sie bitte unseren Hauptkata- 


Iog an gegen BOPf Porto. 
LEKTRONIC-TECHNIK 
Fritz-Reuter-Str. 3, 2914 Barßel 


Commodore C16 - 116- plus 4 
Userport.... Wird einfach in das Ex- 


pansionsport ei , Kompati- 
bilität zum C64 gut mi lich. 2 8Bit 
WOrtSeriel-Port2 1 Timer 


Echtzeit-Uhr usw. für nur 98,-- DM (incl. 
MwSt) + Port per NN bei: Frank 
Schmitz, Kurzer Weg 1, 

5206 Neunkirchen 2, Tel.: 02247/8111 


TE 
a Bde u 


ung jetzt nur a 
Kinde Kinder. DFÜ Kompietantage 


stehe nee rss und Er 
ee Wan von der Compu- 


tertastatur: 

%* Wahlwiederholung 

* Auto-Answer 

* Mallboxbetrieb **229,--DM** 
Ihr DFÜ-Spezialist 

GUSS DATA CONNECTION, 
Tel.: 02723/6679 


Wir haben die Software, die Sie suchen! 


Commodore 64/128 


Alleykat 
Die Erbschaft 


Der Mindestbestellwert von Software 


liegt bei 15.00 DMI 


Sie können das Geld in bar oder per 
SchecklIhrerschriftlichen Bestellung 


beilegen. 
Bei 


Nachnahme-Versand werden 
4.00 DM für Porto-Kosten erhoben. 


Super Cycle 

Tass Times 

Thrust 

Trinity 

Vera Cruz 

Vietnam 

Way of the Expl. Fist Il 
World Games 


Auslandsbestellungen werden nur 


per 
men! 


Rufen Sie uns doch einfach einmal 
an! Unsere Telefone sind wochentags 
ab 9.30 Uhr für Sie zu erreichen! 


Vorauskasse entgegengenom- 


Eden Bluss 
Jack, the Nipper 
Saboteur 


SOFTWARE-VERSAND 


8 


ACE 


BERER 23 
88888 8 
22222 22 


G-Man 


International Karate 
Jack Attack (Modul) 


Kikstart 


MatrodLaser Zone 
Monty on the Run 
Paint Box 


Pod 


Kassette 
92,95 DM 
32,985 DM 
32,95 DM 
92,95 DM 
92,95 DM 


92,95 DM 
32,956 DM 
32,95 DM 


ACE (+64K) 

Bandits at Zero 

Bomb Jack 

Classics Il 

Computer-Hit (10 Spiele) ” 
Finders Keepers 

Formula One Sim. 

Frank Bruno’s Boxing 
Ghosts’n"Goblins 


Project Nova 
Quiwi (+64K) 


Commodore 16/116/PLUS4 
Kassette 


32,00 DM 
34,95 DM 
14,95 DM 
29,00 DM 
32,95 DM 
32,95 DM 

9,95 DM 

9,985 DM 
25,00 DM 
29,00 DM 

9,95 DM 
19,85 DM 
14,95 DM 

9,95 DM 
29,00 DM 

9,95 DM 
25,00 DM 

9,95 DM 
25,00. DM 
29,00 DM 
29,00 DM 
19,985 DM 

9,95 DM 
98,95 DM 
38,95 DM 
19,95 DM 
29,00 DM 
29,00 DM 


Fordern Sie kostenloses Informationsmaterialüber unser Liefer-Programm fürfolgende 
Computer an: COMMODORE 64/128, COMMODORE 16/116/PLUS 4, SCHNEIDER 464/ 
664, ATARI 130XE/260ST/520ST/BOOXL, SINCLAIR SPECTRUM und MSX. 

Bitte geben Sie immer Ihren Computertyp an! 














"Verkaufe VC-20 mit viel Zubehör 
(Spei-chererw, 64K u.a.) für 400,- DM 
VHB. Info bei Manfred Barth, Kandel- 
gasse 3, 6509 Lonsheim 


Wer braucht einen VC-20 gut er- 
halten? 


en 
V.B. 200,-DM. Angebote an: Marc 
Schwarzer, Höhenweg 30, 6992 
Weikers-heim, Tel. 079341547 


C-18+ Datasette + Joystick + S/W- 
Monitor+7TOP GAMES (z.B. Bomb 
Jack) Prais 500,--DM, Tel: 05602/5425, 
Walde-mar Glodny, Egerlandstr. 13, 
3436 Hess, Lichtenau 


SVI 328 64K + DU SIR ENT DR 
corder + einf, Kassette, Anschl. an je- 
des TV-Gerät möglich. 

Tel.: 09621/ 13939 Preis: DM 650,- 


Verkaufe C-116 mit Joystick/Netztell 
ca. 30 abgeti, Spiele, 8 gekaufte Spiele, 
z.B. Winter Olympiade, Atlan-tis, Ban- 
ülts at Zero, Preis 250,-DM, bitte mel- 
den 04834/8322 


Data-selte und den Spielen Winter 
Olympiade, Space P-ot, Daley Thomp- 
sons Star Events, Plus Paket, Basic- 
Lernkassette und Joystick- adapter. 
Dazu 3 Handbücher über den Cie. 
Preis 250,- DM, Martin Müller, Ost-str. 1, 
8391 Hintereben, 

Tel.:08581/ 2261 


Verkaufe C16+Datasette + 12 Spiele 

Joy-stick + BASIC-Cassette + BASIC- 
Buch! la-Zu-stand. VB:280,-DM, 
Tel:06195/4723 


C-16 großer Bruder des C-64 
Datenfernübertragung wird zum Kin- 
derspiel! Erweiterungsplatine >USMO 
I< für C-16/116 mit RS-232 und zwei 
Userports für DM 138,-. Modem 
steckfertig mit passender Software: 
* Wahl von der Gomputer-Tastatur 
* Autoanswer 
ana Di 

wei 49,-- 
Guss Data Connection, 


+ 





C16/116 Speichererweiterung 64K 

- Umrüstservice DM 74,-- 

=  Steckbar ohne löten DM 65,- 

- Bausatz kompl. DM 45,— 

- Datasstteninterface DM 79,- 
Preise + 6,-DM Versandspesen, Info 
gegen Freiumschlag, Tel.: 06209/43468 


+++ Verkaufe C-116 +++ 
Mit BASIC-Kurs, sowie Datasette und 
31 Spiele: 2.8. ACE, Bombjack, Roach- 
head, und viele mehr. Wo? Rainer Hüt- 
t ‚ Kremser Str. 14, 
Nürnberg 50 
Verkaufe Schneider CPC 664 mit 
BE RRAESE * Software oder Tausch 
n 
orsten Mundil, Auf dem Klink 11, 
3254 Emmerthal 2, Tel: 05157/473 


Commodore C-16/116 


Speichererweiterung 64 KByte Bausatz 
mit allen benötigten T eilen, Schalter für 


me. Frank Schmitz, Kurzer Weg 1, 
5206 Neunkirchen 2, Tel.: 02247/8111 





Suche Tauschpartner/in für alle Arten 
von Programmen auf C 64 Disketten. 
Sendet Eure Listen an: Siegfned 
Braun, Zehntwiesenstr. 35, 7605 Ett- 
lIingen 

Hallo, C-16-Besitzer! Wer hat Lust mit 
mir Spiele zu tauschen? Schreibt mir 


doch einfach einmal, Greve, It- 
zehoersitr. 15, 2351 Gnutz 
Vc-20 VG 1211 


Speichererweiteru 
Kreuzer, Weichsel 22, A-2500 
Baden, Tel.: 02252/87970 
Suche preiswerten Drucker für Com- 
modore 64! Angebote an: 
Benno Frei, Geranienstr. 22, 7830 Em- 
mendingen 


kleinanzeigen 


Suche für Schneider CPC 464 Soft- 
ware auf Cass. oder 3" Diskette. Ob mit 
oder ohne deutsche Anleitung, bietet 
alles an, Schriftliche Angebote an 
Jörg Aglaster, Klaus-Dorier Weg 10, 
1000 Berlin 49 


[2 "CPCc* °*CPC* *CPc* *CPCc* ’CPC* ” 
CPC-6128! Suche und tausche Pro- 
es auf 3”-Diso. Schreibt bitte an: 





Lightpenprogramm für VC-20 und 
Compute mit 7/85 sucht Heinz Peter 


Martingasse 11, A-2130 Mistelbach 


I am searching for: Genesis, biete 
10,00 ig Paar a F © 
nager, ter ympi ’ urbo 
Tape, etc. für C-16 und Tape! A. Loep- 
ki, Heidrehmen 20, 2000 Hamburg 55 


w..... © 64 Fans ***** 
Tauschpartner, kaufe auch für den C 





| 








meiner Programme Rückporio 
an Guido ‚ Malenstr. 8, 6602 
Saarbrücken-Dudweiler 


Suche: C 16 oder C 116 mit Datasetto 
und Joystick und Spielen. Angebote 
an: Martin Krafft, Tel.: 0231/679435 ab 
14 Uhr. Preis: bis 200,-- DM 


Tausche Orlginal-Software 

Suche C-64 zahle bis 150,-- DM 

mit Zubehör auch mehr! MELDEN bei: 
Guido Lange, Bergstr. 20, 





8741 Schönau 
Tausche/Verkaufe Spiels für C-64 
, World Games 


sche 
Bitte meldet Euch (neue und alte Soft- 
ware). Daniel Schmidt; Sindelenstr. 2, 
CH-8340 Hinwil 





C16-Einstelger sucht Kontakte mit 
Profi, suche auch billig Drucker, Wer 
hilft mir? Antwort bitte an: A.Z. Duda, 
Barbarossaring 32, 6750 Kaiserslau- 
tern, Tel.: 0631/40656 nur SA-SO 


Größter C 16/116/P4 CLUB 
Bietet einen tollen Service u. a.: Fach- 


nen gegen 1,30 DM Rü X 
Hacker, im Winger 10, 5440 Mayen 14 








‚Münster K2-Commodore C16-CLUB 


sucht Mitstreiter! 








Mit Mailboxbuch + Diskettensoftware für C-64 - Anschlußfertig für C-64/C-128 
Holen Sie sich Daten und Software aus der ganzen Welt. 
Internationale Datenbanken stehen zu Ihrer Verfügung. 
Komplett anschlußfertig für C-64/C-128 


Fordern Sie unsere umfangreichen Infos und Hardwarelisten a 
a ee ed 


ER 


DM 319, - 


n. Kostenlos! Bitte geben Sie Ihren Computertyp an. 
FIRE FF EEE EFF FF EEE + + 
Computer Soft- und Hardware 


Versandhandel R. Lindenschmidt 


Schulstraße 14 - Postfach 1328 - 4972 Löhne 2 - Telefon (05732) 72849 


NLQ - Near Letter Qualität - mehrere Schriftarten: Pica, Elite, Comp. » Endlospapier und Einzelblatt 
Druckwegoptimierung » Textspeicher 1K - 100 Zeichen/sec - 8 Bit Paralell Schnittstelle 
Komplett anschlußfertig für C-128/C-64, C-16 mit Wiesermann-Interface 


DM 779, - 


Die Welt am Draht — Dataphon s21 d 
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EN Sesellschart«, 
‘Mörderstung’ 
ist ungesund! 


Ein Test von Abisz 


Nr. 9 Nov. Derember 


Tests [777777 Vorstellungen 


Die Kampfmaschine 
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A wendersoftware: 
: auf „Turb-Tpin« 


En 





